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X.O INTRODUCTION 


This program performs a modified version.: of the clustering 
algorithm known as ISODATA to multispectral scanner data. 

The acronym ISODATA stands for Iterative Self-Organizing 
Data Analysis Technique (A). As its name implies, the 
algorithm is an iterative procedure which groups similar 
‘objects* into sets called clusters. The algorithm was 
originally developed by Ball and Hall of Stanford Research 
Institute and used in their PROMENADE system. (See References 
1 and 2 for articles written by Ball and Hall on this subject) . 
A clustering technique based on ISODATA and suitable for 
MSC’s use in processing multispectral scanner data, was 
developed by E. Kan and A. Holly (LEC) . To distinguish 
between the original and revised programs it was decided 
to call MSC's version of the clustering program ISOCLS 
(Iterative Self-Organizing Clustering Program) . 


The procedure will, ideally, separate all of the data into 
distinct groups or clusters, the center of each cluster being 
represented by its mean. The process is initialized by 
assigning each data po±nt ; to the nearest estimated cluster 
center (absolute distance is calculated to each cluster mean) , 
After assigning all of the data to clusters, new means are 


calculated and tests are made to see if clusters should be 


split or combined. A cluster is split if the standard 
deviation of the cluster exceeds a specific threshold value. 
Two clusters are combined if the distance between the cluster 
centers is smaller than the specified threshold. A cluster 
is deleted if it has fewer than some specified number of 
points. The data is reassigned after each split or combine 
iteration to the new clusters and the process continues 
until the desired number of iterations has been obtained. 
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2.0 PROGRAM DESCRIPTION 

2.1 GENERAL DESCRIPTION 

The main program ISOCLS is used as a driver to call the 
major subroutines in the program. The tasks performed by 
the subroutines called in the main program are summarized 
below.< 


SETUP 


- 1. Reads and analyzes all card input to the program. 

2. Initializes default options if not input by user. 

3. Does some error checking on input parameters. 

4. Calculates the amount of storage needed for the 
data user has requested and assigns drum storage 
accordingly. 

5. Prints input summary on the line printer. 


TAPERD - Reads the users data tape, selects the requested 
fields and channels from the data, and stores the 
data unpacked on drum unit 4 if the core storage 
array IDAT will not hold it all. 


ISODAT - Performs the clustering algorithm described in the 

? 

Technical Description of this document and stores 
the results on drum unit 7. 

COVARR - Calculates and prints the covariance matrix for 
each cluster. 

PCHSTA - Punches means and covariance matrix for each cluster 
in the same format as LARSYS's STAT processor. 

CHAIN - Performs the chaining algorithm described in 
Section 2*2 of this document. 

TWRITE - Creates a tape of the cluster statistics for input to 
a preprocessor for the Earth Resources Interactive 
System (ERIPS) . 
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PRINT - Prints the results obtained in the clustering 

algorithm. This printout includes a summary of 
the number of points in each cluster, the mean and 
standard deviation of each cluster, and the 
distance between cluster centers. In addition, 
each field is printed (the field is identified by 
lines and columns) , with each data point represented 
by the symbol assigned to the cluster to which it 
belongs. PRINT is also called from ISODAT to 
print cluster summaries and maps. 

DASTAP -Creates a tape of the clustered data for display 
on the PMIS DAS. 

2,2 TECHNICAL DESCRIPTION 1 

The aim of any clustering algorithm is to partition a given 
set of multivariate data points, with little or no knowledge 
about the' actual distribution of the data, into disjoint 
sets of similar* data points. The algorithm implemented in 
this program uses as a measure of similarity the absolute 
distance between a data point and the cluster mean. The 
procedure begins with, optionally, a set of assumed cluster 
means or the assumption that all the data is one cluster 
and proceeds with a series of "split" and "combine" itera- 
tions, until the maximum number of iterations is reached. 


^This technical description is based on information 
contained in documents written by E. Kan (References 3-6) . 
Excerpts are lifted from the documents in some instances. 
An attempt was made to keep notations the same, however, 
where symbolic names are used, the actual Fortran name for 
the variable in the program is used in this discussion. 
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The algorithm is detailed below step by step following the 
notation definitions. 


NOTATION DEFINITIONS 


SYMBOL 

FORTRAN NAME ( S ) 

DEFINITION 

CLD ij 

CLD (I / J) 

Intercluster distance between 
clusters I and J. 

d(X k ,p (I) ) 

DIST 

Distance from the data point 
k to the center of cluster I. 

DLMIN 

DLMIN 

Threshold value for combining 
clusters . 

ISTOP 

ISTOP 

Maximum number of iterations. 

LNCAT 

LNCAT 

INCAT 

Number of existing clusters 
at a given time. 

N(I) 

N (I) 
DN (I) 

Total number of data points 
assigned to cluster I. 

NMIN 

NMIN 

/ 

NOFEAT 

Minimum number of data points 
allowed per cluster. 

NOFEAT 

Number of coordinates in a 


data vector. 


STDMAX STDMAX 

X k C ( J,K) 




MEANS (J, I) 
AMN(J,I) 

AVP ( J , I ) 


original page IS 
OF POOH QUALITY 


Threshold for splitting clusters. 
Data vector k, C (I ,K) = (X lk ,X 2k 

* • * X NOPEAT 

Mean of the j coordinate of 
the 1^ cluster. 

Temporary summing variable 
for the calculation of the 
standard deviation of the j th 
coordinate of the I th cluster. 
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FORTRAN NAME ( S ) 


DEFINITION 


STDEV ( J f I! 


Standard deviation of the 
j*'* 1 coordinate of the I* 1 * 1 
cluster. 


INITIALIZE 

• Initialize threshold values for splitting clusters 
(STDMAX) , combining clusters (DLMIN) and deleting 
clusters (NMIN) . 

CLASSIFY AND CALCULATE NEW STATISTICS 

• Assign each data point to a cluster and at the same 
time collect the means f standard deviations and point 
count of the newly developing clusters. 

1. Assign the data point X^ X^ N0FJ 

to the I th cluster if ) £ d(X k# y^) for 

all J ^ I r where d(X^,y^) is defined as 


NOFEAT 


d(X k ,y (I> ) = 


j=i 




2. N (I) = N (I) + 1 


3 U (D = Nillrl U (I) + i__ x 

■ y j N(I) V j + N (I) x kj 

4 V (D = Mllrl Y d) + _I_ X 2 

Y j N (I) Y j N (I) kj 


5 . .«>. .j 1 ’ 


2 i/; 


j = 1,... NOFEAT 


Return to 1. until all data points have been classified. 
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DELETE 

Delete all clusters which have fewer than NMIN- members. 

A cluster is deleted simply by removing the statistics 
for that cluster and reducing the number of clusters 
(LNCAT) accordingly. 

DETERMINE TYPE OF ITERATION 

Determine whether this is to be a SPLIT iteration or a 
COMBINE iteration and proceed to appropriate step. The 
sequence of iterations will be as follows. 

SSSSCSCSC. . . . S where S = Split Iteration 

n C = Combine Iteration 

I STOP 

The beginning sequence of split iterations is terminated 
when at least 80% of the clusters have standard deviations 
less than the threshold parameter STDMAX. At that point 
the iterations alternate between combine and split until 
the last (ISTOP) iteration, which is always a split iteration. 

The initial split iterations are for the automatic initiali- 
zation of cluster centers in the event they are not input. 

The sequence is shortened considerably if initial cluster 
centers are input. 

SPLIT 

A cluster is split along the j coordinate if (1) the j 
coordinate has the maximum standard deviation for the cluster, 
(2) the standard deviation along the j th coordinate is 
greater than the threshold STDMAX? and if (3) the cluster 

o 
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has more than 2 (NMIN + 1) data points. 


If the above conditions are met then two new clusters are 
created and the parent cluster is deleted. A cluster is 
created merely by defining its centers (means) for each 
coordinate. If the 1^ cluster is split in the j*'* 1 coordinate 
then the two new clusters will have centers at 

rvj 1 * 1 * * * y j T * - a ' ’ * ’ ^NOFEAT^ * Where a will normally 

be a ' but can be a constant input by user (See Card 

Input Section 3.1.1, SEP control card) . On a given split 
iteration all clusters having a standard deviation greater 
than STDMAX will be split provided the maximum number of 
clusters has not been reached. In which event reclassifi- 
cation of the data will continue without the creation of 
new clusters. 

COMBINE 


Two clusters are combined if the distance between them is 
less than the threshold parameter DLMIN . The distance 
between clusters i and j is calculated as 



If CLD. . < DLMIN and CLD . . < CLD. for all m ^ j and m > i, 

IT XJ Xlu 

then the clusters I and J will be merged to form a new 
cluster L with means 


(L) 

y k 


N(I)W 1 [ I) +N(J)V^ J) 
N(I) + N(J) 


k = 1, NOFEAT 
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The clusters I and J are deleted. The new cluster L is 
not considered as a candidate for merging with any other 
cluster on the iteration in which it was formed. 


BEGIN NEXT ITERATION 

If the maximum number of iterations (ISTOP) has not been 
reached begin the next iteration with "CLASSIFY AND 
CALCULATE NEW STATISTICS". If the maximum number of itera- 
tions has been reached then reclassify and calculate sta- 
tistics in case new clusters were formed or deleted on the 
last iteration, and then proceed to the chaining algorithm. 


CHAIN 

The last step in the clustering procedure groups all clus- 
ters which have intercluster distances less than the 
chaining threshold (CHNTHS) to form one cluster. The chaining 
procedure was adopted because the minimum variance criteria 
used in the iterative procedure above tends to group the 
data into spherical (or ellipsoidal) groupings with Gaussian 
distributions. This type of grouping is certainly a natural 
grouping and would quite often be completely satisfactory. 
However, there could be natural groupings of the data which 
are odd shaped and can not be approximated by Gaussian dis- 
tributions. Two examples are given in Figure 1. At the 
end of the sequence of split and combine iterations groupings 
. of the type in Figure 1 are likely to be separated into sub- 
clusters as illustrated in Figure 2. The chaining algorithm 
will group the subclusters 1, 2, and 3 (Figure 2) into one 
composite cluster, likewise clusters 4, 5, 6, and 7 would be 
grouped together to form one cluster. 

2-7 
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The algorithm scans the intercluster distance table (CLD) 
and begins a chain with the first appearance of two clusters 
within a distance of CHNTHS units. Once a subcluster is in 
the chain all clusters which are within CHNTHS units of the 
subcluster are added to the chain. See Example Figure 3. 

The statistics (means, standard deviations and covariance 
matrices) of the clusters resulting from chaining are not 
calculated by the program because often the chained cluster 
cannot be represented by a Gaussian distribution. 


There are, of course, instances that one can safely combine 
into one composite (Gaussian) cluster those subclusters 
that are chained by the program. For example, the three 
subclusters 1, 2, and 3 in Fig. 4 can safely be combined 
into one final cluster. An indication of such possibility 
would be the fact that these three subclusters are all 
pairwise close to one another. In this case, the following 
formulas [3] can be used iteratively to compute the com- 
posite statistics: 

Assuming that two clusters jn^,m^,C^j and { n 2' m 2' C 2| 

are to be considered as one cluster n,m,C , where 
n*s, m's, C f s are respectively the number of points, mean 
vectors and covariance matrices. Then 


n = n 1 + n 2 
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FIG. I 

(a) THE BOOMERANG - SHAPED CLUSTER 

(b) THE DONUT - SHAPED CLUSTER 





(b) 


FIG , 2 

BREAKING UP OF THE CLUSTERS (a) AND (b) 
OF FIG. 1 INTO SUBCLUSTERS 







FIG. 3. - EXAMPLE FOR CHAINING 

(a) CLUSTER STRUCTURE 

(b) INTERCLUSTER DISTANCE TABLE 
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FIG. 4 

AN EXAMPLE IN WHICH THE CHAINED 
SUBCLUSTERS CAN SAFELY BE COMBINED 
INTO ONE COMPOSITE CLUSTER 
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A few words of- caution are at hand as to the values of 
DLMIN and STDMAX in the COMBINE and SPLIT routines. The 
range of values 3. 2-3. 9 for DLMIN have been established in 
connection with the probability of misclassif ication . Values 
outside this range are discouraged. Of course, values of 
DLMIN closer to the lower bound will induce finer groupings 
than otherwise. As to the value of STDMAX, its value 
directly governs the size of nominal sized clusters. For 
agricultural data collected by aircraft multispectral 
scanners having a range of levels from 0 to 255, a value 
4.5 of STDMAX is suggested. Higher values of this threshold 
is acceptable, e.g., 6.0 or 7.0, inducing coarser groupings. 
For ERTS data with levels from 0 to 127, probably (since 
there is no experience yet) a value of 2.5 to 4.0 would be 
suitable. 
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3.° PROGRAM USAGE 

3.1 INPUT DESCRIPTION 

The user must provide two types of input to the program, 

(1) card input specifying various optional input parameters, 
initial cluster means if any, and boundaries of fields to 
be clustered, (2) tape input containing the multispectral 
scanner data to be clustered. 

3.1.1 Card Input 

There are three different formats for the card input to the 
program. 

m Control cards which specify various input options 

requested by the user. These cards are identified by 
a key-word left justified in columns 1-10 of the card, 
with the parameter value (s) in columns 11-80 (beginning 
in any column past 10) . These control cards may be in 
any order but they should be the first cards in the 
input deck. The following is a list of all available 
options in the program along with their default value 
if provided. 

Keyword 

FEATURES 


ERIPS 


Parameter Value 


Function 


Cl, C2, C3 • . • 
(Default - none) 


N 

(Default-no ERIPS 
interface tape) 


Use the channels indicated 
in the parameter list for 
the clustering procedure. 

Cl, C2, C3 , . . . , should be 
integer numbers separated 
by commas'. 

Create a tape for the ERIPS 
preprocessor. A save tape 
has been assigned to unit N. 
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SYMBOLS 


ISTOP 

LNCAT 

NMIN 

DLMIN 

SEP 


STDMAX 


MAXCLS 


Parameter Value 

SI, S2 , S3, ... 
Default (1, 2 ... 9 
A, B. • . Z , % , # , A ,/ 

*#■**,$, 0 , — ,&,?,* , • , 

blank 

N 

(Default = 10) 

N 

(Default = 1) 

N 

(Default = 30) 

X 

(Default = 3.2) 

X 

(Default - maximum 
of the channel's 
standard deviations 
in the cluster) 

X 

(Default = 4.5) 

N 

(Default = MAXPOP) 
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Keyword 

KRN 


MAP 


FORMAT 


PUNCH 


DASUNIT 


HEDI 


HED2 


CHAIN 


Parameter Value 

N 

(Default = 1) 

N 

(Default = 20) 


Function 

Print out a summary of the 
clusters at every Nth 
iteration. 

Print out a map of the clustered 
data along with the summary 
every Nth iteration. 


N 

(Default = 2) 


N 

(Default - no 
cards punched) 


N 

(Default - no'’ 
DAS output tape) 


N=l, indicates the input data 
tape is in the UNIVERSAL format. 

N=2, indicates the input data 
tape is in the LARSYS II format. 

Punch the means and covariance 
matrix for each cluster. 

N = 1, format for 1108 programs 
N = 2, format for 360/75 programs 
N >2 or blank, both formats. 

Create a tape for the DAS. 

A save tape is assigned to 
unit N. N cannot be 3, 4, or 
7 since these units are used 
internally by the program. 


Any 60 characters Replace the first line of the 
(Default - standard header record with 

standard heading) the indicated 60 characters. 


Any 60 characters Replace the second line of the 
(Default - standard header record with the 

standard heading) indicated 60 characters. 

X Chain all clusters within 

(Default - X units of each other to form 

chaining not per- one cluster, 
formed) 
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Keyword 

Parameter Value 

. Function 

COMMENT ‘ 

Any 60 characters 
(Default - no 
comment) 

Print the indicated comment 
along with the header. 

DATE 

Any 12 characters 
(Default - present 
date) 

Print the date indicated 
in the header. 

*END* 

(Blank) 

Indicates the end of one set 
of control cards. 


The remaining two types of input cards follow this card in 
the deck set-up. 

$ENP* Blank Indicates the end of all 

card input for one data set. 

• Means' of Initial Clusters 

Estimated means of initial clusters is an optional 
input. Inputting initial means should decrease the 
number of iterations required to cluster the data. 

If this option is exercised, the control card LNCAT 
must be set to the number of initial clusters. 

Estimated means must be input for each channel listed 
on the FEATURES card, one value for each channel for 
each initial cluster. The means immediately follow the 
*END* card listed above, they are read with an 8F10.2 
format. Punched 8 values per card with a 10 column 
field width, the means should be ordered all channels 
(in same order as FEATURE card) for the first cluster, 
followed by all channels for the second cluster, and 
so on for all initial clusters. 
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• Field Boundary Definitions 

The fields to be clustered are defined by beginning and 
ending scan line with an increment, and beginning and 
ending sample point with an increment. These cards 
immediately follow the means or *END* if no means input. 

All fields are clustered together as one data set, but the 
boundary lines and samples are maintained for printout pur- 


poses . 

The format for 

these cards is as follows. 

Columns 

Format 

Input Definition 

1-6 

A6 

Any six character name to identify 
this field. (May be blank) . 

21-25 

15 

First line number 

26-30 

15 

Last line number 

31-35 

15 

Line increment 

36-40 

15 

First sample number 

41-45 

15 

Last sample number 

46-50 

15 

Sample increment 

? 

* Integer formats must 

be right- justified in the column field 


All card input to the program is read and analyzed by sub- 
. routine SETUP . 

3 .1.2 Tape Input 

The input tape contains the data to be clustered. It must 
be in either the UNIVERSAL format or the LARSYS II format, 
and it must be assigned to Fortran unit 3 or logical unit C. 
The LARSYS II format is defined in Appendix B. The UNIVERSAL 
format is defined in Reference 7. 
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Subroutine TAPERD reads the data tape, unpacks the data and 
selects what the user has requested. The requested data is 
stored on drum unit 4, unpacked, for use in the clustering 
procedure. 

3.2 PROGRAM RUN PREPARATIONS 

The deck set-up for execution on the UNIVAC 1108 is given 
on page 3.8 . Sample for Deck Setup and input is given in 
Section 5.5.1. 

3.3 OUTPUT DESCRIPTION 
3.3.1 Line Printer Output 

Line printer output consists of the following items: 

1. Input summary printed by subroutine SETUP. 

2. Summary of the cluster structures and map of 
the data printed by subroutine PRINT. This 

* includes means and standards deviations of 
each cluster and count of points assigned 

. to each cluster. 

/ 

3. According to the value of KRN , messages are 
printed by subroutine ISODAT when clusters 
are split, combined or deleted. 

4. Covariance matrix of each cluster printed 
by subroutine COVARR. 

5. Summary of chaining algorithm printed by 
subroutine CHAIN. 

6. Diagnostic messages printed in several 
routines. The diagnostic messages are 
listed in Appendix A with explanations and 
recommendations for user action. 
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Sample Output is given in Section 5.5.2. 

3.3.2 Card Output 

The subroutine PCHSTA outputs on cards the statistics (means 
and covariance matrix) for each cluster. 

Punched output is controlled by the 'input card PUNCH (See 
Section 3.1.1) . The statistics can be punched in either 
or both of two formats. One format is acceptable to the 
1108 versions of the LARSYS and TLU programs. The other 
format is acceptable to the 360/75 ERIPS system. 

The punched card output does not reflect the chaining 
algorithm (i.e., the cards are punched for all subclusters 
before chaining) . 
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DECK SETUP FOR PROGRAM 


ISOCLS 


PAGE NO. 


VE PMD 


DATA 


V XQT ISOCLS 



TRW A 


V XQT CUR 


VNKS ASG F = save tape 


VNS ASG B = save tane* 


VR ASG C = data tape number 


VR ASG A =■ program tape number 


V TCP** 


VN MSG FILES REQ. TAPES 3 FH432 4 


VZ RUN 


(Front of dock) 


* Omit this card if the DAS tape option is not used. 

** Omit this card if the PUNCH option is not used. 

*** Omit this card if the ERIPS tape option is not used 


ASft 060 
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3.3.2 Tape Output 

Subroutine DASTAP creates a data tape which will allow the 
user to display the results of the clustering on the PMIS 
DAS. The format of this tape is as follows: 

(a) The number of files on the tape equals the number of 
fields input by the user. 

(b) The number of records on each file equals the number of 
scan lines in the particular field. 

(c) Each record is a series of 16 bit bytes, each byte 
containing the number of the cluster to which the 
corresponding data point belongs. 

This, tape should be mounted on a 9- track tape drive so 
that it will be compatible with the PMIS DAS . 

Subroutine TWRITE creates a data tape containing the statistics 
of the clusters. This tape is an interface between the 

ISOCLS program and a preprocessor for the Earth Resources 

? 

Interactive Processing System {ERIPS) . It should be mounted 
on a 9- track drive, using the BCD hardware converter so 
that it will be compatible with the ERIPS preprocessor. 
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4.0 EXECUTION CHARACTERISTICS 

4.1 Restrictions 

Since the program uses drum for internal storage of the 
data, the user is somewhat limited in the amount of data 
he can cluster at one time. The program is designed to 
use drum storage only if the amount of data requested by the 
user exceeds internal dimensions of the program. The num- 
ber of data points times the number of channels cannot exceed 
the number of words available on the FH432 drum. Presently 
there are 786,432 words of storage available on the FH432 
drum, however this number may change with the system. The 
program prints a diagnostic message if the user has requested 
too much data. See subroutine SETUP (5.3) for a descrip- 
tion on how the drum units are assigned. 

Dimensions in the program restrict the number of clusters 
to fifty, the number of features to thirty and the number 
of fields to one hundred. The program was designed so that 
these dimensions could be easily changed if necessary. See 
Section 5.2 for instruction on how to change these dimensions. 

) 

4.2 Running Time/Lines of Output 

Run time for the program depends on several factors (1) the 
number of data points being clustered, (2) the number of 
channels requested, (3) the number of iterations and (4) 
the number of times printout is requested. Execution time 
for a sample case where 1524 data points from 3 channels 
were clustered, iterating 30 times and printing every third 
iteration, was 2 minutes and 42 seconds. Increasing the 
number of data points to 7882 with the other variables the 
same increased execution time to 6 minutes and 20 seconds. 

■ • A 
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Lines of printed output will depend on how many iterations 
are printed. This is controlled by the user with the input 
parameters KRN and MAP (see Input Description) . Printing 
every iteration for 30 iterations should not exceed 300 
pages . 
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5.0 REFERENCE INFORMATION 



’5 .1 General 'Flow of the Program 



Obtains 

Reads card 

Reads tape 

Performs 

Calculates 

Punches 

Performs Prints 

Creates 

current 

input and 

input and 

clustering 

and prints 

means and 

chaining final 

tape for 

date 

makes drum 

stores on 

algorithm. 

covariance 

covariance 

algorithm results 

PMIS-DAS 


assignments 

drum. 

PRINT 

matrices 

matrix 

NTRAN 3 

PACK 


FLTNUM 

UNPACK 

CLDIST 

NTRAN 3 


SETMRG 4 

NTRAN 3 


NXTCHR 

FRMT1 

NTRAN 3 



• 



NUMBER 

FRMT2 







DRMAVL 1 

DRMASG 2 

NTRAN 3 





- 


in 


1 System routine which returns the number of words available on FH432 and FH1782 drums. 

2 System routine which assigns specific word length to drum unit. 

3 System binary I/O routine. 

4 System routine which sets the margin at the top and bottom of the page. 
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5.2 1 COMMON 1 Symbol Definitions 

The procedure element COMMON is a list of FORTRAN statements 
which are included in most of the subroutines throughout 
the program. They are defined in a procedure so that changes 
may be made easily. Changing a statement in the procedure 
results in the changes being made throughout the program. 
However when a change is made to the procedure, all routines 
including the procedure must be recompiled. 

The common block PASS is used to pass variables from one 
subroutine to another. Symbol definitions for this common 


block are 

FORTRAN 

Name 

given 

Mode 

below. 

ROUTINE 

WHERE INITIALIZED 

Definition OR CALCULATED 

HEAD 

A 

Array containing the 
heading to be printed at 
the top of each page of 
output. 

MAIN PROGRAM or 
SETUP 

NOFEAT 

I 

Number of channels requested SETUP 

by the user on the input card 
FEATURES . 

FETVEC 

I 

Array containing the specific SETUP 

channels requested by the 

user. 

ISTOP 

I 

Maximum number of iterations 
for the clustering procedure. 

SETUP 

LNCAT 

I 

Number of clusters at a 
given time. 

SETUP & 
ISODAT 
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Definition 

Minimum number of points 
to allow per cluster. 

Print summary of clusters 
every KRNth iteration. 

Maximum standard deviation 
allowed before splitting a 
cluster. 

Minimum distance between 
clusters before combining. 


Distance to separate clusters 
upon splitting. 

Means (one for each channel 
for each cluster). 

Standard deviations (one 
for each channel for each 

cluster) . 

7 

Number of fields input by 
user. 

Array containing alpha- 
numeric name for each field. 

Array containing field 
identifiers. Begin and end 
scan line, scan line incre- 
ment, begin and end sample 
point and sample increment 
for each field. 


ROUTINE 

WHERE INITIALIZED 
OR CALCULATED 

SETUP 


SETUP 


SETUP 


SETUP 


SETUP or 
ISODAT 

SETUP & 
ISODAT 


ISODAT 


SETUP 


SETUP 


SETUP 
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FORTRAN 

Name 

Mode 

5 

Definition 

ROUTINE 

WHERE INITIALIZED 
OR CALCULATED 


BLK 

I 

Array containing number 

TAPERD 

m 

SYMBLS 

A 

of scan lines and number 
of points on a scan line 
for each field. 

Array containing symbols to 

SETUP 


DAS 

I 

be used in the printout to 
identify the clusters. 

Unit upon which the DAS 

SETUP 


FORMAT 

I . 

output tape is to be 
generated. 

Trigger indicating which 

SETUP 


MAP. 

I 

format the data tape is in*. 

Print map of clustered data 

{ 

SETUP 


SPTRIG 

I 

every MAP iterations . 
Trigger indicating whether 

SETUP 


IRD 

I 

or not user has input a value 
for SEP or desires to use 
default option. 

Number of records written TAPERD 

- i 


- 

on drum. 



KPTS 

I 

Number of data points on 

.TAPERD 


NOPTS 

I 

last record of drum. 
Maximum number of points 

FRMT1 or 
FRMT2 

TAPERD 


that can be contained in 
the array IDAT * All drum 
records on unit 4 are of 
length NOPTS *NOFEAT except 
the last one which is of 
length KPTS *NOFEAT . 
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- ROUTINE 

WHERE INITIALIZED 

FORTRAN Mode Definition OR CALCULATED 

CLD R Array containing the CLDIST 

distances between 
cluster means. 

N I Array containing count ISODAT 

of points within each 
cluster. 

NBLK I Array containing count PRINT 

of points in each cluster 
in each field. 

PUNCH I Trigger indicating whether SETUP 

or not statistics are to be 
punched. 

MAXCLS I Maximum number of clusters. SETUP 

ICHN I Trigger indicating whether SETUP 

chaining is to be performed. 

CHNTHS ‘ R Chaining threshold. SETUP 

ICHAIN I Array containing numbers of CHAIN 

clusters which have been 
chained. 

VARSIZ I Word size of the covariance TAPERD 

matrix for one cluster. 

NOFEAT* (NOFEAT+D/2 

KUNIT I Unit for ERIPS interface tape SETUP 

In addition to the common block PASS the procedure element 
defines four parameter variables. These are used for dimen- 
sions and were defined in this manner because of the high 
probability that the user may need to change .the dimensions 
within the program. Changing the parameter variable in the 
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procedure element will change it throughout the program, if 
all routines are recompiled. 

Definitions of the parameter variables are as follows: 


FORTRAN 

SYMBOL 

MAXPOP 


MAXFET 


MAXFLD 


MAXDIM 


DEFINITION 

Dimension for number of clusters. MAXCLS 
cannot exceed this number. Set at 50. 

Dimension* for number of features. NOFEAT 
'cannot exceed this number. Set at 30. 

Dimension for number of fields. NOFLD 
cannot exceed this number. Set at 100. 

Dimension of the array IDAT. This dimension 
is set as large as possible to avoid using 
drum whenever there is enough core storage 
available. This number is set at 25000. It 
can be decreased without any effect on the 
execution of the program (possibly execution 
time may be increased since drum will have 
to be accessed more frequently) . 


The following routines include the procedure element and 
must be recompiled when a change is made. 


1 . CHAIN 

2. CLDIST 

3 . COVARR 

4. DASTAP 

5. ISODAT 


6. ISOCLS 

7. PCHSTA 

8. PRINT 

9. SETUP 
10., r :TAPERD 
11. TWRITE 


-gQO^ 
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5. 3 SUBPROGRAM DOCUMENTATION 

The following subroutines were taken from other programs 
and are not documented here, 

1. FIND12 (NXTCHR, NUMBER, FIND) taken from LARSYS 

2. FLTNUM taken from LARSYS 

3. UNPACK taken from LARSYS 

• 4. UNPKIN taken from TLU 
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SUBROUTINE CHAIN 


IDENTIFICATION 


Name/Title 

Author/Date 

Organization/ Installation 
Machine Identification 
Source Language 


- CHAIN 

- Ruth Minter, October 1972 

- LEC for CAD-MSC 

- UNIVAC 1108 

- FORTRAN V 


PURPOSE 

Subroutine CHAIN chains into one cluster all those subclusters 
that are close to at least one other subcluster in the group. 

Two subclusters are said to be close if their intercluster distance 
is less than some prespecified threshold value. 

USAGE 


• Calling Sequence 
CALL CHAIN 

• Data In/Out 
Labeled Common: 



Block Name 

Input 

Output 

PASS > 

LNCAT 

ICHAIN (ID) 


CLD 

CHNTHS 

SYMBLS 


SYMBLS 

HEAD 



For definitions of labeled common parameters see Section 5.2. 
• STORAGE 

Coding occupies 250 g (168 1Q ) locations and internal 
data occupies 157^ (lll^ g ) locations. 


CHAIN- 1 
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METHOD 

■ - g» 

The end product of this subroutine is a converged index 
array (IP or ICHAIN) . Subclusters that are to be chained 
together (and thus considered to belong to one composite 
cluster) will have the same index value. The index array 
is obtained as follows: 

1. Set IP(I) = I for I = 1 to LNCAT (number of clusters). 

2. Set JP(I) = IP(I) for I = 1 to LNCAT. 

3. Set 1=1 

4. For all clusters J, J>I, if CLD (I , J) <CHNTHS set 
IP(J) = IP(I) = MIN (IP(I) ,IP(J) ) . 

5. If I = LNCAT go to step 6, otherwise 1=1+1 
return to step 4 . 

6. If JP(I) 1 IP(I) for any I, I = 1 to LNCAT, return 
to step 2, otherwise the process has converged. 

The subroutine prints a summary of the clusters which have 
been chained, adjusts the symbol array for the final map 
printout of the data and then returns to the main program. 

) 


CHAIN-2 
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SUBROUTINE CLDIST 


'^ IDENTIFICATION 

Name/Title 

Author/Date 

Organization/ Installation 
Machine Identification 
Source Language 


- CLDIST 

- Ruth Minter, April 1972 

- LEC for CAD- MS C 

- UNIVAC 1108 

- FORTRAN V - 


PURPOSE 

Subroutine CLDIST calculates weighted Euclidian distance 
between cluster means. 

USAGE 

• Calling Sequence 
CALL CLDIST 

• Data In/Out 
Labeled Common: 


Block Name 


PASS 


LNCAT 

MEANS (AMN) 

STDEV 

NOFEAT 


For definitions of labeled common parameters, see 
Section 5.2. 


4/72 


CLDIST-1 
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• Storage 


Coding occupies 142 Q (98 1Q ) locations. Internal data 
occupies 31 q (25 1q ) locations. 

METHOD 

t Symbol Definition 


Text 

Code 

Type 

Description 

i » j 

I,J 

I 

Index for specific cluster. 

k 

K 

I 

Index for specific feature, 

y 

AMN 

R 

Means 

o 

STDEV 

R 

Standard deviations 

CLD. . 

CLD 

R 

Distance between clusters 
and j . 

• Model 




CLDij = 

[(" k f 


If °ki or 

a, . equals 

zero, 

CLD^ is arbitrarily set to 


999.99 to prevent the cluster being chained to other 
clusters. A standard deviation of zero usually indicates 
bad data. 


4/72 • CLDIST-2 
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SUBROUTINE COVARR 
COVARR 

Ruth Winter, October 1972 
LEC for CAD-MSC 
UNIVAC 1108 
FORTRAN V 

PURPOSE 

Subroutine COVARR calculates and prints the covariance 
matrix for each cluster. Since the covariance matrix is 
symmetrical only the lower triangular portion of the 
matrix is calculated. 


IDENTIFICATION 

Name/Title 

Author/Date 

Organization/ Installation 
Machine Identification 
Source Language 


USAGE 


Calling Sequence 

CALL COVARR (COVAR, C, IPLACE) 

Arguments: 


Parameter 

Name In/Out Dimension Type 

COVAR Out (LNCAT, R 

VARSIZ) 


(NOFEAT , R 
NOPTS) 


COVARR- 1 


Description 


Array containing co- 
variance matrix for 
each of LNCAT clusters. 

Array containing input 
data. If the data ex- 
ceeds the maximum di- 
mensions of this array, 
it is stored on drum unit 
4 and read in a block at 
a time. 
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Parameter 

Name In/Qut Dimension Typ e Description 

IPLACE . In NOPTS I Array containing cluster 

number to which each 
corresponding data point 
belongs. This information 
is stored on drum unit 7 
if the user has requested 
more data than the dimension 
limits. 


• Data In/Out 
Labeled Common: 

Block Name 

PASS 

; 

For definitions of labeled common parameters see section 5.2 

• Storage 

Coding occupies 445g (293 ^q) locations and internal data 
occupies 7 7 g (63^) locations. 


COVARR- 2 
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METHOD 

• Symbol Definition 


Text 

Code 

Type 


Description 

C jk 

COVAR 

R 

The (j,k tfe ) 
matrix for 

element in the covariance 
a particular cluster. 

n 

N 

I 

The number 
particular 

of data points in a 
cluster 

j/k 

J,K 

I 

Indices corresponding to particular 
features 


• Model 

For each cluster the covariance matrix is obtained as 
follows : 

n 

c j k = £^) x j x k - KjU k j**l» NOFEAT and k=l,j 

Each element in the covariance matrix is calculated 
as indicated above and stored in the array COVAR in 
consecutive locations . 
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■ v- r w , 

The matrix is stored as follows for cluster X. 

; COyAR (1,1) 

-i-. • :.<?? 2 ) 

-d,3) 

( 1 . 4 ) 

( 1 . 5 ) 

( 1 . 6 ) 

( 1 . 7 ) 

( 1 . 8 ) 

' • : - " ( 1 , 9 ) 

( 1 , 10 ) 

In this example the parameter VARSIZ would be 10. 


ORIGINAL PAGE IS 
OF POOR QUALITY 


COVARR-4 
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SUBROUTINE DASTAP 
DASTAP 

Ruth Minter, April 1972 
LEC for CAD-MSC 
UNIVAC 1108 
FORTRAN V 

PURPOSE 

Subroutine DASTAP generates the output tape for the PMIS 
DAS (Data Analysis Station) if requested by the user. 

USAGE 

• Calling Sequence 

CALL DASTAP ( IPLACE , IBUF , IOBUF ) 

Type Description 

I Array containing the 

cluster number to which 
each data point belongs. 
This information will be 
stored on drum unit 7 
if the user has requested 
more data than the dimen- 
sion limits. 

DASTAP -1 


Arguments: 

Parameter 

Name In/Out Dimension 

IPLACE In NOPTS 


IDENTIFICATION 

Name/Title 

Author/Date 

Organization/Installation 
Machine Identification 
Source Language 
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Parameter 

Name In/Out Dimension 

IBUF In 



IOBUF In 


I 


Description 

Storage buffer used 
for one scan line of 
data taken from larger 
array IPLACE. 

Storage buffer used for 
the packed scan line. 


• Data In/Out 

Labeled Common: 
Block Name 
PASS 


• Storage 



IRD 

NOPTS 

BLK 

DAS 

KPTS 

NOFLD 

ICHAIN 

) 


Output 

None 


Coding occupies 234 g (156^) locations. Internal data 


occupies 70 8 (56^) locations. 


METHOD 

Beginning with the first field input by the user, a buffer 
is filled with the cluster identification for one scan line 
of data. Subroutine PACK is called to pack the line in 
the 16 bit format expected by the PMIS DAS. The line is 


DAS TAP -2 
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then written on the user's tape mounted on unit DAS. This 
is repeated until all the scan lines from one field have 
been packed and written on the output tape. An end-of-file 
is written after the field and the process is repeated until 
all fields have been written on the output tape. 

The format of the DAS output tape is described in more 
detail in Section 3.3.2. 
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SUBROUTINE ISODAT 


IDENTIFICATION 

Name/Title - ISODAT 

Author/Date - Ruth Minter, April 1972 

Organization/Ins tallation - LEC for CAD-MSC 
Machine Identification - UNIVAC 1108 

Source Language - FORTRAN V 

PURPOSE 

Subroutine ISODAT performs the clustering algorithm 
described in the Technical Description (Section 2.2) 
of this document. 

USAGE 

• Calling Sequence 

CALL ISODAT (C , IPLACE) 

/ 

Arguments : 

Parameter 

Name In/Out Dimension 

C In NOFEAT x 

NOPTS 

clustered. If the data 
• exceeds the maximum 

dimensions of this array, 
it is stored on drum unit 
4 and read in a block at 
a time when needed. 


Description 

Array containing the 
data which is to be 


ISODAT- 1 
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Parameter . * . 

Name In/Out Dimension Type Description 

Out NOPTS I Array containing the 

number of the cluster to 
which the corresponding 
data point belongs. 

- * 1 . ’ 1 b - ; ' - — - --..Subroutine ISODAT stores 

this information on drum 
V' unit 7 if it exceeds the 
• dimension limits for 

IPLACE . 


IPLACE 


© Data In/Out 

: r * !*' w.. . C • .. _ 


Labeled Common: 


— 

Block Name 

Input 

Output 

PASS 

NOFEAT, ISTOP, 

MEANS , STDEV 

• 

LNCAT , NMIN , KRN , 

CLD, LNCAT, N 

• Storage 

DLMIN, SEP, MEANS 
SPTRIG , IRD , KPTS , 
fJOPTS , STDMAX , MAP , 
MAXCLS 


Coding occupies 

1331g ( 729 ) locations 

. Internal 

occupies 6456g 

(3374 1Q ) locations. 



METHOD 

See the Technical Description of this program (Section 2.2) 
for a discussion of the algorithm implemented in this 
subroutine. ; 

- - f t ^ 

ISODAT- 2 
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Parameter 

Name 


In/Out Dimension " Typ e 


Description 


I PLACE 


NOPTS 


Array containing the 


number of the cluster to 


which the corresponding 
data point belongs. 


_ *r ■- Subroutine ISODAT stores 


this information on drum 


unit 7 if it exceeds the 
dimension limits for 


IP LACE • 


. © Data In/Out 


Labeled Common: 


Block' Name 


Output 


PASS 


NOFEAT, ISTOP, 
LNCAT , NMIN , KRN , 
DLMIN, SEP, MEANS 
SPTRIG , IRD , KPTS , 
ffc)PTS , STDMAX , MAP , 


MEANS, STDEV 


CLD, LNCAT, N 


MAXCLS 


Storage 


Coding occupies 1331 g (729 1Q ) locations • Internal data 
occupies 6456 g (3374^) locations. 


METHOD 


See the Technical Description of this program (Section 2.2] 
for a discussion of the algorithm implemented in this 
subroutine. * 


“ISODAT- 2 
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RESTRICTIONS 

The restrictions given in section 4.1 apply to this 
subroutine. 



V; ISODAT-3 
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SUBROUTINE PACK 


IDENTIFICATION 

Name/Title 

Author/Date 

Organization/Ins tallation 
Machine Identification 
Source Language 


- PACK 

- Ruth Minter, October 1972 

- LEC for CAD-MSC 

- UNIVAC 1108 

- FORTRAN V 


PURPOSE 

Subroutine PACK packs a string of bytes into 36 bit 

words. The byte length can be any number of bits less than 

36. 

USAGE 

• Calling Sequence 

CALL PACK ( LNGTH , B IAS , NSAMP , INBUF, OBUF , WDOUT ) 

7 

Arguments : 

Parameter 

Name In/Out Dimension Type Description 

LNGTH In 1 I Bit length of the bytes 

to be packed. Must be 
less than 36. 

BIAS In 1 I Bit position to begin 

packing the data in the 
output buffer. Can be 

• 1 greater than 36. 

PACK-1 
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Parameter 

Name In/Out Dimension Type Description 

NSAMP In 1 I Number of bytes to be 

packed . 

INBUF ’ In NSAMP I Array containing the 

data to be packed. The 
data must be right 
justified in the last 
LNGTH bits of the 36 bit 
computer word. 

OBUF Out WDOUT I Array containing the 

packed data. Trailing bits 
in the last word are 
meaningless. 

WDOUT Out I I Number of words in the 


output array OBUF. 


* Storage 


Coding occupies 236 g (158 1Q ) locations and internal 
data occupies 25 p (21- n ) locations. 


METHOD 

The routine uses the bit manipulation function FLD to 
extract the correct bits from the input buffer and insert 
them into the output buffer. 


PACK- 2 
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EXAMPLE 

LNGTH =16 
BIAS = 8 

NSAMP = 4 


INBUF 



PACK- 3 
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SUBROUTINE PCHSTA 
PCHSTA 

Ruth Minter, October 1972 
LEC for CAD-MSC 
UNIVAC 1108 
FORTRAN V 

PURPOSE 

Subroutine PCHSTA punches the means and covariance 
matrix for each cluster in two different formats. One 
of the formats is the same as the one used in the 1108 
version of the LARSYS's STAT processor; cards punched 
in this format can be used in the 1108 versions of TLTJ 
and LARSYS. The other format is the same as the 360/75 
ERIPS STAT processor. 

USAGE ) 

• Calling Sequence 
...CALL PCHSTA ( LOCK, COVAR) 


IDENTIFICATION 

Name/Title 

Author/Date 

Organization/Installation - 
Machine Identification 
Source Language 



PCqSTA-1 
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Description 
Storage area used to 
encode the output data 
in preparation for 
punching cards for the 
360 / 75 . 


CPD202 




Parameter 

_ , Name In/Out Dimension Type Description 

COVAR In (LNCAT, R Covariance matrices 

VARSIZ) for all clusters. 

r- w . * ... ~ 

• .Data In/Out 

y .i. 'Labeled Common: 

- Block Name Input 

PAS S LNCAT , VARSIZ , 

NOFEAT , PUNCH 

r _r: MEANS 

;; For definitions of labeled common parameters see 

* section 5.2. 


• Storage 

Coding occupies 456 g (302 1Q ) locations and internal 
data occupies 121 g (81 10 ) locations. 

METHOD 1 

For the 1108 programs the statistics are punched with a 
5E15.8 format with the keyword ‘MEAN* or ‘COVAR’ in the 
first 5 columns of each card. 

Since the 1108 ’ E 1 format specification is not compatible 
with the 360/75 it was necessary to make two alterations 
in the 1108 card output so that the 360/75 could read 
the cards. The 360/75 version of LARSYS punches the 
statistics with an E14. 7 format with the key letters 

PCHSTA-2 
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'MN 1 or ' CV' in the first two columns and a sequence 
number in the last 8 columns of the card. The differences 
in the two ' E' format specifications are as follows: 

1108 E14.7 + . XXXXXXX+XX 

On output the plus sign preceding the number 
(but not the exponent) is omitted. 

360/75 E14.7 + . XXXXXXXE+XX 

On output the plus sign is omitted from both the 
number and the exponent. 

Since the 360/75 expects the exponent to have an E 
preceding it, it was necessary to encode the numbers 
with an E14.8 format and replace the last decimal digit 
with an 'E*. In addition all plus signs are removed 
(replaced with a blank) because of a difference in key 
punch . 


PCHSTA-3 
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SUBROUTINE PRINT 

IDENTIFICATION 

Name/Title - PRINT 

Author/Date - Ruth Minter, April 1972 

Organization/Installation - LEC for CAD-MSC 
Machine Identification - UNIVAC 1108 

Source Language - FORTRAN V 

PURPOSE 

Subroutine PRINT provides most of the printed output for 
the program. PRINT is called by subroutine ISODAT, the 
number of times it is called is controlled by the input 
parameters KRN and MAP. The main program calls PRINT 
for the final printout. 

USAGE 

• Calling Sequence 

) ' : 

CALL PRINT (KKT,IPLACE) 

Arguments : 

Parameter 

Name In/Out Dimension Type Description 

KKT In 1 I Iteration counter. 

PRINT-1 
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Parameter 

Name 

IPLACE 


In/Out Dimension Type 


NOPTS 


Data In/Out 
Labeled Common: 


Block Name 


PASS 


Description 

Array containing the 
cluster number to which 
the corresponding data 
point belongs. This 
information will be 
stored on drum unit 7 
if the data exceeds 
dimension limits. 


Input 

HEAD / NOFEAT , 
FETVEC , LNCAT 
MEANS, STDEV, 
NOFLD , FLDNAM , 
BLOCK, BLK, 
SYMBLS , IRD , 
KPTS, NOPTS, 
CLD , MAP 


Output 


Storage 

Coding occupies 1035 g (541^ Q ) locations. Internal 
data occupies 1166 g (630^) locations. 


METHOD 

The following information is printed by this subroutine 
each time it is called. 
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(1) Header record 

(2) Toval number of clusters 

(3) Total number of data points 

(4) Summary of total points in each cluster 

(5) Means 

(6) Standard deviations 

(7) Distances between clusters 

If the user has requested a map of the data to be printed 
for this iteration or if the iteration counter has been set 
negative then the following is printed for each field. 

(a) Header record 

(b) Field name 

(c) Total number of points in the field 

i 

. (d) Field boundaries (lines and samples) 

(e) For each data point in the field, the symbol 
associated with the cluster to which the point 
belongs 

(f) Summary of points per cluster in the field. 

/ 

If the number of sample points on a scan line exceeds 110, 
only the first 110 points are printed on the line printer. 


PRINT- 3 
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SUBROUTINE SETUP 


IDENTIFICATION 

- - - 

Name/Title 

- SETUP 

Author/Date 

- Ruth Minter, April 1972 


Organization/Installation - LEC for CAD-MSC 
Machine Identification - UNIVAC 1108 
Source Language - FORTRAN V 

PURPOSE 

Subroutine SETUP reads and analyzes all card input to the 
program, initializes default options and assigns drum 
length to units 4 and 7. 


USAGE 


Calling Sequence 
CALL SETUP 

Data In/Out 
Labeled Commons 
Block Name 
PASS 




Output 

HEAD , NOFEAT , FETVEC , ISTOP 
LNCAT , NMIN , KRN , DLMIN , SEP 
MEANS , NOFLD , FLDNAM , BLOCK , 
SYMBLS , DAS , SPTRIG , FORMAT , 
MAP , PUNCH , STDMAX , MAXCLS 
ICHN, CHNTHS 


SETUP- 1 
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ij v ___ _ 

: : subroutine ' SETUP 

IDENTIFICATION . 

Name/Title ‘ -'SETUP 

Author/Date - Ruth Min ter , April 1972 

- Organization/Ins tallation. - LEC for CAD-MSC 

Machine Identification - UNIVAC 1108 

Source Language ~ - FORTRAN V - 

PURPOSE 

Subroutine. SETUP reads and analyzes all card input to the 
program, initializes default options and assigns drum 
length to units 4 and 7. 

USAGE 

• Calling Sequence 
CALL SETUP 

• Data In/Out 
Labeled Common: 

t . 

Block Name Output 

PASS HEAD, NOFEAT, FETVEC,ISTOP 

LNCAT , NMIN , KRN , DLMIN , SEP 
MEANS , NOFLD , FLDNAM , BLOCK , 

SYMBLS , DAS , SPTRIG , FORMAT , 

MAP , PUNCH , STDMAX , MAXCLS 
XCHN, CHNTHS 

SETUP rl 
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METHOD 

Card input to the program is in three formats. The first 
cards in the input deck (control cards) are identified by 
key words in columns 1-6 of the card. These key-words are 
listed in section 3.1.1. The subroutine reads the data 
card, identifies the key-word and branches to the state- 
ment number which processes that particular input. After 
the information located in columns 11-80 of the card is pro- 
cessed the program branches back to the read statement and 
reads the next card. 


The key-word *END* signals the end of the control cards. 
If the control parameter LNCAT has been set greater than 
1, the initial estimated cluster means are read with an 
8F10.3 format. If LNCAT is less than or equal to 1, the 
read statement is not executed. 

Immediately following the means (or the *END* card if 
means not input) , the field identifiers are read. A 
field is completely defined on one card, the name is 
read with an A6 format from columns 1-6, the boundaries 
are read with an 15 format (see section 3.1.1 for a more 
detailed format description). Up to ' MAXFLD 1 (this 
parameter variable is set at 20) fields may be read in. 
The key-word $END* signals the end of all card input. 
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After all card input has been read, the number of data points 
(IPTS) user has requested is calculated from the field 
boundaries. This computation is necessary for assigning 
drum lengths . 

The user's input data will be stored unpakced on drum unit 
4 by subroutine TAPERD, the length of drum unit 4 must be 
IPTS*NOFEAT words. Subroutine ISODAT will store on drum 
unit 7 the cluster number to which each data point belongs, 
so drum unit 7 must have a word length of IPTS. 

The system routines DRMAVL and DRMASG allow Univac 1108 
EXEC 2 users flexibility in the assignment of scratch drum 
files. The system default divides the FH432 drum into 4 
equal drum files of length 600,000 g words and the FH1782 drum 
is not used. DRMASG and DRMAVL increases the drum space 
available by providing access to the FH1782 drum and allows 
the user to specify the number and length of the files. 

Both file assignments in this program (4 and 7) are made to 
FH432 drum if possible, since this is a higher speed drum 
than FH1782. However the user is allowed all of FH432 drum 
for the data (Unit 4) if needed, in this case Unit 7 will 
be assigned to the FH1782 drum. 
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SUBROUTINE TAPERD 
TAPERD 

Ruth Minter, April 1972 
LEC for CAD-MSC 
UNIVAC 1108 
FORTRAN V 

PURPOSE 

Subroutine TAPERD reads the users data tape and calls 
the necessary routines to unpack the data, select the 
data requested by the user and store the data unpacked 
bn drum unit 4. 

USAGE 

• Calling Sequence 
CALL TAPERD (IBUF) > 

Description 

Storage array passed 
from the main program 
(called IDAT in the 
main program) . This 
array will at one time 
contain one scan line of 
data packed as read from 

TAPERD- 1.. 
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Name/Title 

Author/Date 

Organization/Installation - 
Machine Identification 
Source Language 
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Parameter 

Name In/Out Dimension Type Description 

tape and the line 
unpacked 8 bit elements 
per word, the remainder 
of the array is used to 
accumulate the data user 
has requested in the 
field definitions. 

• Data In/Out 
Labeled Common: 

Block Name Input Output 

PASS NOFLD , BLOCK IRD , KPTS , BLK , NOPTS 

FETVEC , NOPTS VARS I Z 

• Storage 

Coding occupies 564g (372^) locations. Internal data 
occupies 241g (161^^) locations. 

METHOD 

Since the storage requirements vary considerably with 
the data tapes used, dimensions for the buffer areas 
needed are calculated after reading the header record 
from the user's input tape. 

Immediately upon entry into the subroutine, the header 
record is read from the data tape and unpacked. The 
number of channels (NC) and the number of samples per 
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line (NS) are extracted from the header record. The word 
length of the buffer to receive the packed data record 
from tape is determined as follows: 

KBUF = NC*NS*8/36 + 1 


The buffer to hold the unpacked scan line must be NC*NS 
words. The amount of storage left in the IBUF array is 
MAXDIM - KBUF - NC*NS . This storage is used to accumulate 


the- data to be used in the clustering procedure as it is 


read and unpacked from the tape. When the buffer is 


filled it is written on to drum unit 4. 


After all the data to be clustered has been stored on 
drum, the buffer areas used to read and unpack the data 
tape can be used to store the data to be clustered. The [| 

amount of storage needed for the covariance matrices is 
calculated (VARSIZ*MAXCLS) because this will be stored in 
the IBUF (or IDAT) array along with the data. The maxi- 
mum number of points which the core array will hold is 
calculated as NOPTS. If this number is less than or 
equal to the number of data points to be clustered, then 
the data is read back into core from drum unit 4 and drum 
is never used again. 

If all the data cannot be contained in core at one time, 
then it must be read in a block at a time. The number of 
blocks is calculated as IRD and the length of each block 
is NOPTS *NOFEAT except the last which is KPTS*NOFEAT. 


TAPERD-3 


5-37 



CPD202 


SUBROUTINE TDATE 
TDATE 

Ruth Minter, April 1972 
LEC Test Data Reduction 
LEC for CAD-MSC 
UNIVAC 1108 
SLEUTH 

PURPOSE 

This assembly language routine was designed to be called 
by FORTRAN and to return the current date DAY MONTH YEAR 
in the' calling argument, which must be dimensioned by two. 

USAGE 

• Calling Sequence ^ 

CALL TDATE (DATE) 

Arguments : 

Parameter 

Name In/Out 

DATE Out 


TDATE- 1 


Dimension Type Description 

2 A Array which contains 

the current date in the 
form DAY MONTH YEAR 
upon return to the 
calling routine. 


IDENTIFICATION 

Name /Title - 

Author/Date 

Programmer 

Organization/Installation - 
Machine Identification 
Source Language 
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9 L POP.« COMMON, COMMON 
POP 8L 1 2103 0010 

This proc element processed on 03 dec 7j *t 12 : 22:11 


p«Oc oMjlN 1 


ENTRy POINT I 


%% 




PAP*M£T t R MaXPOP-S 0 .MAAfeT »30 


parameter maxdim«250oq 


parameter Maapld«ioo 


C3MMON/PaSS/HEaO« 12 > .NOFEa T .FE T*EC I MAXFfcT » • J S T Op , LUCA! * NM I N , * RN , 

• sTDMAX,0L M IN,StP,MEANS(HAXFtT,hAXPGP) • STOEV l NAXFET , mAXPOP) , 

• nOFUD|FLO n aM(MaXFL.D1,BlCIC<<MAXFLD,6),0LmM a XFi.Di2J, 

• STMBlS(MaXpOP) ,OaS. format ,map, 

• 5PTR!G,IRD.xPTS,nOPTS,CLD(maaPOP,MAXPOP» 

• , NIMAXP0P1 t N8LMMAXFLD,MAXP0P) 

• . PUNCH, MAXCUS, ICHN.CHNTnS. 1CHAINCMAXP0P) , VaRSI Z 

• t K.0 N I T 

integer vaRsiz 
integer punch 
REAL MEANS 

INTEGER SpTr l G,atOCK,BLA,STfibtS«HEAO»FETVEC»FLONAM t OAS 

Integer 'format 


procedure 


29 NOV 73 13;H0:H7 Q 01536122 

1 0153E- 16 
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0 for,* chain, chain 

UNIVaC 1108 FORTRAN v EXEC II LEvEl 2Sa -(c*£ce level E l 23 1 C 3 l Q a ) 
This cOHRILaMON «aS OCNE ON 33 Otc 73 aT I?:22:*I5 


03 DEC 73 


w:22:*» 


SUBROUTINE Chain Entry POINT Q 302*«? 

STORAGE USED I CODE(l) OOC25Q5 D*T»(u» 000157 5 8LAN* cOMHON(2| 000C3C 
COHHON BLOCKS; 

0303 PASS 0?*S7* 

external References (Block, namej 
ooor n*ous 

0005 NlC2* 

0006 NiOIS 

0007 NERR3S 


STQRA6E ASSIGNMENT |8L0C*, TYPE, RELATIVE LOCATION, NaHEI 


0001 

000203 

IDOL 

0000 


*03071 

1 1 OF 

0000 


oooio 5 

I20F 

0001 


000005 

I22G 

300! 


0000 1 A 

|27g 

0000 

0001 2S 

130F 

0000 


«00l h2 

1 «»QF 

0001 


0000m** 

uu 

0001 


000070 

1S3G 

0001 


000112 

1 6 6 G 

0001 

0000 1 7 

2CL 

0001 


033171 

2 1 **G 

0001 


00002* 

**0L 

0001 


0000 AO 

SOL 

OOCI 


000069 

60L 

0001 

000103 

• OL 

coci 


000133 

»0L 

0003 

1 

0073oS 

6L*C 

0003 

1 

00 A 155 

BLOCK 

0003 

N 

026507 

ChNYhS 

0003 

R 007706 

CLO 

OOC 3 

1 

037677 

DAS 

3003 


0001 1 a 

OLMIn 

0003 

1 

000053 

f etvec 

0003 

1 

00601 1 

FLONAM 

0003 

1 007700 

format 

0003 

1 

030500 

HEAD 

0000 

1 

000063 

1 

0003 


026510 

(chain 

0003 


026506 

1CHN 

0000 

1 000062 

IHO 

0000 

I 

.00070 

|M 

0000 


OOOlM* 

INJPt 

0003 

1 

0265(0 

IP 

0003 


007703 

INC 

0003 

0001 1 1 

ISTOP 

0000 

1 

C3306S 

J 

0000 

I 

cooooo 

JP 

0300 

I 

000067 

K 

0000 

1 

0000 A 6 

KNCaT 

0003 

00770** 

KP T S 

OOC 3 


0031 1 ** 

KRN 

0003 


026573 

KUN | T 

0003 

1 

0001 12 

L NC A T 

0000 

1 

00006** 

M 

0003 

0077QI 

MAP 

0003 


026SCS 

MAXCLS 

0003 

« 

000120 

means 

3001 


0 l **6 1 2 

N 

0003 


01 H67N 

N0 L A 

0003 

0001 1 3 

NM 1 N 

0003 


033CS2 

nofe at 

0003 


006010 

NOFlO 

0003 


007705 

NOPTS 

0003 

1 

02650** 

PUNCH 

0003 

0001 1 7 

SEP 

0003 

1 

037732 

sptrig 

0003 


00305** 

SIOEV 

0003 


0001 1 5 

STOMAX 

0003 

1 

007615 

SVHbLS 


0003 I 026^72 K^SlI 


ocioi 

1 • 


Subroutine chain 


CHA 10000 

Oc 101 

2 • 

C«M 



•••CHA | 00 1 0 

00101 

3* 

C» 



•CHA1C020 

00101 

N • 

c* 

This SUBROUTINE Chains ALL CLUSTERS *mOSE 

MEANS ARE LESS THAN 

•CHA 10030 

00101 

5* 

c« 

DlM 1 N UMTS APART, 


•CHA 1 00**0 

00101 

6* 

c* 

if - distance bEtaeen clusters l and 

M < olhin 

•CHA I 0050 

00101 

?• 

C« 

OlSTANCE setaeen clusters l and 

N > OtHlN 

•CHA 1 0060 

00101 

8* 

c« 

distance setaee.n clusters n ano 

4 < OLHIN 

•CHA 10070 

00101 

9* 

c* 

TMEN-Cl JSTCRS l»h, ano n are CHAINEO 


•CHA 1 OOdO 

00101 

10* 

c* 



•CHA I 00*0 

00101 

1 1 • 

c» 

INPUT CLO-f.uSTER DISTANCES 


•Chaioiou 

00101 

12* 

c« 

OL'*l>-HlNl*'UN DISTANCE BETAEEN CLUSTERS 

•CHA10I 10 

OOiOl 

1 3* 

c« 

L NC A r » nUMB £ R OF CLUSTERS 


• CtiA Id 23 

00101 

IN* 

c* 



• CHA I 0 1 JO 

00 1 01 

15* 

c* 

OUTPUT ICiAIN-ARRAY CONTAINING NUMBERS OF CHAINED CLOSERS 

•CHAI01 NO 

00101 

16* 

c* 

PRJNTE3 SUMMARY OF CLUSTERS RHICm 

i ACRE CHAINEO 

•CHA 1 0 I SO 
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ORIGINAL PAGE IS 

Of POOR QUALITY 




I 


0010! 

17* 



o 

« 

o 

< 

z 

u 

• 

00101 

18* 

C* 


CnAloi 70 

00101 

16* 

INCLUDE C3i-0*.LIST 


CHA10I80 

00 1 0" 

19* 

** «P06»sO , *AXFET-30 



0010S 

19* 

•aKaHETER *4*31 1-23030 



0010* 

0010* 

l f • 
1’* 

PAK»HfTrR H**rL0* ,3 ° 

comhos/ Pa SS / iff oi * 2 ' t*orEA T , fe Tv ec < ha x < et > 

.|$ T OR t LNCAftN*i •«#«**. 


00 1 C 7 

If* 

' S I 0 H 6 * OLlt* S£6 M£ANS,lA*Pt T 1A»P0P, $7 oE V , H A XF £ T HaaPOP, 


00107 

If* 

• NJfLq. Jlo* * gLOcll M jJrLo»6) »®w1|i*AfCo*21* 


00107 

If* 

• i»H8 L SlMA<^3Pl .OaS.fOI yAT , ia«. 



00107 

If* 

• S*»T*|to,|*y,<PTS.*0PTS,'c01i*AKP0 p .*A*P0*»> 



00107 

If* 

*, X|“A*»0?l ,*dLKC^A«PLO,HA*POP| 



00107 

If* 

• .HuNCH I H 6*C‘-S,lCMf*,CM.*TMs,!CNA|NtHA*P0'*), 

VA*SIZ 


00107 

If* 

• . 1 UN 1 T 



001 |0 

If* 

INTEGER /ARsiZ 



001 1 1 

If* 

Integer punc* 



00112 

If* 

real hears 



00113 

If* 

integer srt* ig. block .blk .stibls.heao.fetvec .fcdnah.das 


001 1* 

If* 

Integer fjr*at 



001 IS 

If* 

Cno 



001 I* 

20* 

0 | he NS I ON JPf NA«POP» t lP|HAAP0 p l 


CMA101 fO 

00117 

21* 

ewuivalence iih.Ic m aI n » 


C M A 10 200 

00120 

22* 

1 HO*0 


CHA10210 

00121 

23* 

oo io ei ,LsCAT 


CHA 10220 

00121 

21* 

io ipi n*i ^ 


CHA 10230 

00 1 76 

2S* 

20 oo 30 1*1 .L (CAT 


ChA 102*0 

0013 1 

26* 

30 JP( | )>|PI 1 1 


CHAI02SO 

oom 

27* 

I *0 


CHA | 02*0 

00131 

28* 

10 1*1*1 


CHA 10270 

00I3S 

2 f* 

IF U*GE*LN C ATI GO TO 60 


CHA 10280 

00137 

30* 

H» 1 ♦ 1 


Cha 1 02f 0 

00 1 lO 

31* 

00 SO J-H,LnCaT 


ChA 10300 

001*3 

32* 

IF tCLOC 1 • J1 .GT.CHNThSJGO TO SO 



00 1 MS 

33* 

|P( I 1-HINOt | p (ll • IPI JM 


CHA 10320 

001*6 

3** 

|P| J»-|Pf 1 1 


CHA 10330 

001*7 

3S* 

SO CONTINUE 


CHA 103*0 

001S1 

36* 

GO TO 10 


CHA 103S0 

0QIS2 

37* 

60 00 70 1-1 .L (CAT 


Cha 103*0 

001SS 

38* 

IF 1 |Pt 1 1 .NE* JF( 1 » » GO TO 20 


CHA 10370 

00 1 S 7 

3? • 

70 CONTINUE 


CHA I 0380 

0016 1 

10* 

H ■ I 


Cha 1 0 3f 0 

00)62 

11* 

KNc aT*LNc*T 


CHA 1 0*00 

00U3 

12* 

80 K*3 


CHA10110 

00161 

13* 

I'H-N ♦ | 


ChA 104(20 

00165 

**• 

Dj 90 1 • M i l 1C A f 


CHA 10* JO 

001 70 

IS* 

IF « IPI 1 I 1 1£ • * 1 GO TO 60 


ChA 1 0**0 

00172 

*6* 

K.«C AT«KnC AT* 1 


CHA 1 OlSO 

00173 

*7* 

K • A ♦ | 


CHA | 0*60 

0017* 

*8* 

STH8LS1 1 1 *5* 1RLS CHI 


CHA 10*70 

001 7S 

If* 

JPUI-I 


CHA 10160 

00176 

SO* 

fO CONTINUE 


CHA 10190 

00200 

SI* 

IF OC.C3.3I Go TO too 


Cha i OSOO 

00202 

S2* 

IF ( I h 0 . E 3 • *) 1 AfITE (6.1*0) 


CHA 10SI0 

0C20S 

S3* 

IF (THO.E)*':) ARITE 1*. HEAD) 


CHAI0S20 

00210 

SI* 

lHj-1 


CHA 1 OS JO 

00 2 | | 

ss* 

* R 1 T £ 16. 1 1 0 > M • ( JPf I 1 , 1>| . H 1 


CHA10S10 

00270 

56* 

•RITE (6»I2o>h 


CHA 1 G&SO 

00223 

S7« 

loo h»n* l 


CHA 1 OS * 0 
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00226 

SB 

00226 

S9 

00230 

60 

00233 

6 1 

002 34 

62 

0023 S 

63 

0023S 

AN 

00236 

6 S 

00236 

66 

0023? 

6? 

002ho 

6 8 


If ,*.LT*l.NC*T» 60 TO 80 
If I KMC AT .EQ.LNCaT I RE TURN 
•SITE (6»t30>K»CAT 
RETURN 

110 FORMAT!/* ThE rOLL9*l"G CLUSTERS SHOULD B£ C M* 1 nEu — - • . 20 1 H 
120 f Ok* * T I / • In THE FINAL OUTPUT «|» ALL Of THE ABOVE CLUSTERS 
•E REPRESENTED BT THC SYMBOL FOR CLUSTER* . | H// ) 

130 f ohha t ( • th£ above chaining reo^ccs the effective nu^er of 

•RS TO • , IS) 

I 40 FORMAT I IHI I 

CNO 


CHA i os to 

CHAlOSttO 
CHAlOSVO 
C«A lOfcCO 
I CHA I 06 1 0 

• ill bc h a ioa2o 
C H A I 06 30 
CLUSTECHa I0A40 
CHA104S0 

CM* 10660 
CHA 1 OA 7 o 


end OF COMPILATION: no DIAGNOSTICS. 

Chain Symbolic 

chain code Relocatable 


29 

NOV 

7 3 

1 3:<to:«t9 

a 

01*36*32 

11 

68 

(DELETED) 

29 

NO V 

73 

i3:no:n9 

1 

01SN 0 N22 

21 

1 

( deleted > 





0 
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11- 
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© TO*,* CLOIST.CLOIST 

UNlVAC I1C8 FORTRAN V EXEC 1! LEVEL 2 SA - C E * E C 6 LEVEL £12310010*) 
ThIS COMPILATION a AS OOnE ON 03 DEC 73 AT i2:22:H6 


03 DEC 73 


I2:22:*t6*« 


sc b *outine cloist entry point 000137 


SToRa&E USED! CODE C 1 J 0001 S 31 3 ata< 0 > D 0003 S; blank eOmhon( 2 ) ogoqqo 
common blocks: 

0003 PASS 0 * 6 * 7 * 


external references iblock , namei 


000 s 

SORT 








- 

ooos 

NERR3* 






• 


* - ■ 

storage assignment 

(BLOC K , TYPE, RELATIVE LOCATION, 

NAME) 



oool 

0000 >0 

1216 

oool 

000033 

1 2*G 

0001 

0000* 7 1 JoG 

0001 

OoOlO 7 ISL 

0003 

R 000120 

AMN 

0003 

1 00730S 


000 3 

1 006 1 SS BLOCK 

0003 

026S07 CHNThS 

0003 

1 007677 

DAS 

0003 

oool 1* 

olnin 

0003 

1 0C00S3 FETVEC 

0003 | 

006011 FLONAM 

0003 

1 000000 

hE*D 

0000 

1 cooooo 

I 

0003 

C26SI0 ICHAIN 

0003 

026 So 6 ICHN 

0003 

007703 

IRD 

0003 

oool 1 1 

ISTOP 

0000 

1 00000 1 J 

0000 I 

000002 K 

0003 

0001 1* 

KRN 

0003 

Ci 2 6 S 7 3 

KUNI T 

0003 

1 0001 1 2 LNCAT 

0003 

007701 MAP 

0003 

R 000120 

means 

0303 

C 1 H 6 I 2 

N 

3003 

0 1 N 6 7 N NBLK 

0003 

000113 NM|N 

0003 

006010 

nof Ll> 

0003 

0077CS 

NOPTS 

0003 

| 026S0* PUNCH 

0003 

000 1 1 7 SEP 

0003 

R 00 JOSH 

stoev 

0003 

0001 is 

stoma* 

0003 

1 CO 7 6 1 S STMflLS 

0003 1 

026S72 VARSlf 

00100 

1 • 

c* 





• 


CLO 1 0000 

0Q1OO 

2* 

CM**' 








00100 

3* 

c* 







•CLOI0020 

00100 

N» 

c* 

this subroutine calculates 

the weighted Distance betreen 

•CLO ICO JO 

00100 

S* 

c* 

CLUSTER MEAkS 





CL0100N0 

00100 

6* 

c» 







CLO I 00 SO 

00100 

7* 

c* 







•CLO I 0060 

00100 

6* 

c* 

INPUT 

AMtjlMEANS) - MEANS 

OF EACH FEATURE OF each 

cluster 

•CL0I0Q70 

0010C 

?• 

c* 


st 0 ev 

- STANDARD DEVIATIONS for each 

featuRe/clustercldioobc. 

00100 

10* 

c* 


LN t AT 

- NUMBER of 

CLUSTERS 


•CLO 1 0090 

00100 

1 1* 

c* 


NOT EaT 

- NUMBER of i 

TEATURES (CHANNELS) 


•CLO I 0 1 00 

001C0 

1 2 • 

c* 







•LLOIOl 10 

00100 

13* 

c* 

OUTPUT 

CLP 

- ARRAT 

CONTAINING DISTANCE BETrEEN CLUSTERS *CLD10|20 

00100 

IN* 

c* 



CLOIN 

,M)«DISTaNCE BETAEEn CLUSTERS n 

ANO M • ClDIGUC 

00100 

IS* 

c* 

c • 







CLOIOI NC 











00100 

1 7* 

c* 







CL010I6C 

00101 

18* 


SUBROUTINE CLCIST 





CLOIOI 70 

00103 

19* 


incluoe common, list 




CLO 10 1 80 

ooto* 

19* 


PARAMETER 

m*APOP-SO,Ma kFET» 

30 




0010S 

19* 


parameter 

Ma7oIP*2SOOO 





COI 06 

19* 


parameter 

Ma XFLD* 1 00 






oooo * 7 
R 007706 
I 007700 
000006 
00770 * 
026 S 0 S 
I OOOOS 2 
1 007702 
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°010 7 

!*• 

00107 

IV* 

00107 

IV* 

00107 

IV* 

0310 7 

IV* 

00107 

IV* 

00107 

i v* 

00107 

IV* 

001 10 

IV* 

001 | 1 

IV* 

001 1 7 

IV* 

COI | 3 

IV* 

001 1 X 

IV* 

001 |S 

IV* 

001 16 

2C • 

0011 7 

21* 

00120 

22* 

00123 

23* 

00126 

JM 

00127 

2S* 

00132 

26* 

00I3R 

2 7* 

001 3S 

28* 

00136 

2 V* 

00137 

30* 

001 VO 

31* 

001x2 

- 12* 

00 1X3 

33* 

001 vv 

3V* 

001 vs 

3S* 

001 V7 

36* 

00IS1 

37* 

001S2 

38* 


_ COHHON/PaSS/HEAD t * 2 ) .NOFEaT , ft T vEC I MAAF E T | , | S T OP . LNC A T . NN I N , ICRn, 

• ST0NAX,DLHlN,SEP,H£ANStMAXFeT,MAXPOP| . $ToE V I MaXFE T . P»A XPOP | . 

.KOn.0.rLCN 4 K|P(kXrLO» (BLOCK (K A XFL0«4) .BLKtM A XE lOiM .... 

• STNBLSIHa*POP> ,CaS. FORMAT .MAP, 

• SPI«I6. !«0,KPtS.^:OPTS.ClOlMA*PO» , .HA*POPl 

•. NIMAXPCP) .NBLKtxAxPtr.HAXPOP) 

• .PUNCH, MAACLS. ICmN.CHNTHS. 1CMA|N|MA*P0PI .VARS12 

••KUXIT 

INTCGC* V A R 5 I 2 
PUNCH 

real MEANS 

INTEGER SPTaIG.BLOCK . 8LK.STMeiS.HEA0.FETVECtEL0NAH.0AS 

Integer format 

ENO 

DIMENSION AhNtHAAFET .MA rPOPI 
EQUIVALENCE (ANN, MEANS) 

00 30 | a I .LnC A I 
00 20 It LNC AT 

CLO I I . J ) -O.r 
DO 10 K • I »N;FEAT 

IF (STOE V I K . | I «GT .C*0 .AND. ST OE V I K • J I 1 GT • 0 • 0 ) GO TO S 

CLOI ! , J) aVVf.V 9 
GO TO |S 
S CONTINUE 

CLOI I , j) a CLO* I t Jl* I AjlNlKt I laAMNIll.JI I • • I S TOE V I K t 1 1 *STOt V I K , J I ) 
|0 CONTINUE 

CLOI 1 v J)aSQ6T |CL0| I , Jl I 
IS CONTINUE 

CLOI J, I laCLCU . Jl 
20 CONTINUE 
30 CONTINUE 
RETURN 
EnO 


CLOIOI VO 
CLO I 0200 

clo i oil o 
C L 0 I 0 2 20 
CLO 102 3c 
CLO 102*40 


CLO I 02 SC 
CLO I 02 AO 
..CLO 1 02 70- 

CLO I 0280 
CL0I02V0 
CLO 10300 
CL0I0310 


END OF COMPILATION: NO DIAGNOSTICS. 

cloist symbolic 

ClOIST CODE RELOCATABLE 





CLO 10320 

mmi * * 


2 V NOV 

73 

i)iviim 

0 

Q|SV|i36 

IV 

3« 

29 NOV 

73 

i3 : xo:so 

1 

01SV2162 

2 V 

1 




c 

01SV2212 

IV 

12 


(OELETEO) 

IOELCTEO) 


si 

n 

& ft 

Q ** 

s > 

> c- 


( 



o for.* covaRR. covar* 

UN 1 V AC 1108 FORTRAN V E*EC II LEVEL 25* -(EXEC8 LEVEL E12C1C0I0*I 
Em 1 5 COMPILATION A AS DOnE ON 03 DEC 73 AT 12122:46 


03 OEC 73 


SUBROUTINE cOVaRR ENTRY POINT 000423 


STORAGE used: CODE(l) OOPRvS: OATA(C) 000077; BLANK cOnmonj2| 000000 
COMMON BLOCKS: 

0003 PASS 026S74 


external references (Block, name» 

0004 NTRAN 

0005 NROUft 

00u6 M02* 

0007 N I 0 I ft 
0010 NERR3S 


STORAGE ASSIGNMENT (BLOCK. TYPE. RELATIVE LOCATION, NaMEI 


000025 
000120 
0000** 
000*47 
0 2650 7 

I 006011 
0265(0 
I 000004 
I 000002 
I 007704 
I 000015 

014674 
| 026504 
I 0076|5 


100F 
| 456 
20 L 
2 4 l 6 
CHNTHS 
FLDnAH 
ICHAIN 
IRC 
J 

KPTS 

N 

NBLK 

PUNCH 

stmbls 


0000 
0001 
0001 
0001 
0003 
0003 I 
0003 
0003 I 
0000 I 
0003 
oor.3 
0003 
0003 
0003 1 


000027 

0001 34 
000**0 
000072 
O07706 
00 7 7 00 

0 2 6 5f)6 
007703 
000014 
000114 

007701 
COOl 13 

0001 I 7 
026572 


I 10F 
|S2G 
200® 
30L 
CLO 

format 

ICMN 

IRO 

JK 

KRN 

MAP 

NMlN 

SEP 

VARSIZ 


000030 
0001 4* 
000260 
000016 
I 007677 

I ooocoo 
1 000010 
I 00000* 

I 00001 1 

026573 
02650S 
I 000052 
1 00 7 7q2 


1 20F 

I 556 

2|S6 

90F 

OAS 

ME AO 

ICLS 

ISTaT 

K 

KUNI T 
MAXCLS 
nofeat 
sptric 


000020 

000176 
000271 
1 007305 
0001 16 
I 00000! 
1 000012 
1 0001 I 1 
1 000013 
I 000112 
R 000120 
006010 
003054 


I 2 1 G 
I 7 | G 
2236 
BLK 
0LH1N 
1 

I I 

1ST OP 

K1NC 

LNCAT 

MEANS 

NOFLD 

STOEV 


0001 
0001 
0001 
0003 I 
0003 | 
0000 I 
0000 
0000 1 

0000 I 
0000 I 
0003 I 
0003 I 
0003 


000020 
000211 
000*1 * 
006155 
000053 
000003 
000040 
000005 
000007 
000000 
0I4AJ2 
0077Q5 
0001 15 


00101 

1 • 


subroutine covarricovar,c,|placei 

00101 

2* 

C» 


00101 

3* 

C* 

subroutine cOVaRR calculates AND PRINTS The COVARIANCE matnia for 

00101 

4 • 

c* 

each cluster 

00101 

s* 

c* 


00103 

6* 


INCLUOE COMMON, LIST 

00104 

6 • 


parameter m a xpop-sq.maxfet-3o 

00105 

6* 


parameter m.xoim-2sooo 

00106 

6* 


PARAMETER MAXFLO-IOO 

00107 

6* 


COMMON/PASS/ME AO 1 4 2 > ,NOFEAT,FETvEC(MAXFET) , IST0 P,LNCAT .nMin.kRN, 

00107 

6 • 


• STOMAX.OLMIN.SEP.MEANSIMAXFET ,NAXPCP» . SToEV (MAXFET .maapopi , 

00107 

6* 


• N0FL0.FL0N A M(M A KF L0 | ,BL0ck|MaXFL0«6I ,BLK(MaXFL0»2I . 

00107 

6* 


• STMBLS1MAXP0PI ,OaS, FORMAT. PaP, 

00107 

6 • 


• SPTRIG, IRO,KPTS,NOPTS,CLOlMAXPoP.MAXPOPl 


COVAOtSOO 

COVA001O 

C0VA0020 

C0VAQP30 

C0VA0040 

COVAOOSO 


4 


00107 

*• 


CO 1 07 

t* 


00107 

4* 


001 10 

6* 


001 | 1 

6* 


001 i 2 

6* 


00113 

6* 


001 1H 

6* 


001 IS 

6* 

- 

00116 

7* 


00117 

a* 


00120 

V* 


00123 

10* 


00126 

1 1 • 


00126 

12* 

C* 

00126 

1 3* 

C* 

00126 

1 H • 

c« 

00131 

IS* 


00132 

16* 


OCI 33 

1 ?• 


0C1 JH 

16* 


0C13S 

IV* 


00137 

2C* 


OOlHl 

21 • 


001H2 

22* 

- 

00 1 H 3 

23* 


00 l H 3 

2 H • 

c* 

00 1 H 3 

2S • 

c* 

00 1 H 3 

26* 

c» 

00 1 H 3 

27* 

c* 

OOlHH 

26 • 


001 M? 

2 V • 


001&0 

JO* 


001SI 

31* 


OOISH 

32* 


00 1 S 7 

33* 


00160 

3N • 


00161 

35* 


0016S 

36* 

- 

00166 

37* 


00170 

- 38* 


00173 

3t • 


001 7H 

HC* 


00177 

HI* 


00202 

H2* 


00203 

H 3 • 


00 2u H 

H H • 


0C2 i 0 

HS* 


002 | 2 

H 6 • 


002 | H 

H 7* 


002 i 7 

Hf>* 


00222 

H V • 


0022$ 

SC* 


00226 

SI* 


00230 

52 • 


002 J 1 

S3* 


00232 

SH* 


0 0 2 3 S 

55* 



• • NtHAXPOPl ,N8 LKIhAXFLD,HAXP0P> 

• , PUNCH, KAICLS* iCHh.CHHTHS. ICHA|N( H**POP» .VARS I Z 

t,KUM!T ~~ ~ 

INTEGER VANSIZ 

INTEGER PUNCH 

«t*L HEANS 

Integer SPTa IG .BLOCK *8LK , ST NBLS , H£ AO ,F C T V£C ,F LON AH, OAS 

INTEGER FORMAT 

END 

0 I HE NS I ON CINOFEAT.NOPTSI 

01 HE NS I ON CUV*R|LKCA T »V*RSIZI , l PL ACC « NOP T S I 
CO 10 I-UVaRSW 

00 10 J • l • L * J C A T 

10 COVARI J, I >*c»0 

remind oruh units 


CALL NTRAN|«|,IO» 

CAtl NT RAN I 7 , 1 0 1 
ICCT-NOPTS 

I R C • I RO * 

2C IF ||RC*IE« I I ICCT-KPTS 

IF ( | HO • F Q • 0 • GO TO 30 - 

IARDS-ICCT.kOFEAT 

CALL NTRANI««,2. I*ROS»C, ISTAT.22I - 

CALL NTRANI T»2 • ICCT , IPLACE * IJTAT, 111 

since the covariance hatrix is sthheTric*l on l v the lo*eR 

TRIANGULAR PORTION OF THE HATRIX IS CALCULATED, 

20 00 HO I-I.ICCT 
RR»0 

ICLS-IPLACE « I » 

00 ho J»l, NoFEAT 
00 HO K«| , J 
RK«KK ♦ | 

CO*tRl ICLS.H* l»CO V ARl |ClS,MI*ClJ*l)«CI«i|» 

HO CONTINUE 
1RC-IRCM 

IF (|RC*GT.rl GO TO 20 
00 SO i»i*lnCat 
RR«0 

00 SO J*l .N oFEAT 
00 SO K*l i J 
RR *KK • I 

COvAKI|,RR»«COVARI|,RR»/NI|I-HEaNS*R,|» •H fcANSI j, 1 » 

SC CONTINUE 

ah | n ( 6 , I 20 ) 

RRITE ( 6 • HE A 0 I 
00 80 !■ 1 *LnCaT 
• KITE 16. ’0»I 

00 70 LOC« I .NOFEAT • I 2 
1ST OP«LOC* I l 

IMISTOP.GT.NOFEATIiSTOP-NCFEAT 

1 I • I 

A I NC ■ 1 

00 60 J*LOC .NOFEAT 
A » j • ( j ♦ | 1 / 2*1 1 ♦ I 
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COVA0060 

c ov A oo?c 

C0VA0080 
COVAOO’O 
COVAOlOO 
COVAOI 10 
COV AO 1 20 
COVAOI JO 
COvAOlHO 
COVAOISO 
C0VA0160 
COVAOI 70 
COVAOI 80 
COVAOI VO 
C 0 V AO 2 00 
C0VA02I0 
COV *0220 
C0VA02 JO 
C0VA02H0 

C0VA02S0 
C0VA0260 
C0VA0270 
C0VA0280 
LO v A02 VO 
COVAOJOO 
CO V AO J l 0 
COV AO 3 20 
C 0 y AO 3 JO 
COVAOJNO 
C0VAQ2S0 
C 0 V AO J 60 
C0VA0370 
C0VA0J80 
C0VAQ3V0 
CO V AOhOO 
COvAOHlO 
C0VA0H20 
COV AOH JO 
COVAOHHO 
C0VA0H»0 
COVAOH60 
C0VA0R70 
COVAOHHO 
COVAOHVC 

covaoSco 

COVAGSIO 

C0VACS20 

tov aoSJo 

COVAOSHO 


ORIGINAL PAGE IS 
or POOR QUALITY 






e for • oastap,dastap 

un!va{ 1108 fortran v exec u trvtL 2 sa -icxic* level c« 20I00I0A| 
This COMPILATION AaS DONE ON 03 PEC 73 aT 12J22:S0 


03 UEC 7 J 


SUBROUTINE OAST A f ’ 


Entry point 00C2*t 


storage user: coPEtit oor2«3; dataici ccoict; blank commoniZ) cooooo 
common blocks: 

0003 PASS 02 AS 7 «♦ 


external references (Block, mare t 


COON 

ooos 

0006 

0007 

0010 


ntran 

PACK 
N* 0 us 
n I 02 t 
N E R R 3 * 


STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NAME} _ 


- 0001 

- 

0000*1 

1 3 3 6 

cooi 


0000*0 

-HOB 

OOOI 


OOOO**- 

1 *3G 

- -0001 

• • . 

000035 

20L 

OQO 1 


0001 2o 

30L _ 

0001 


000173 

3SL 

0001 


C0020S 

SOL 

0000 


000013 

60 F 

oooo 


000033 

70F 

OOOO 


0000m 3 

• OF 

0003 

I 

00 7 3oS 

BLK 

0003 

I 

006 ISS 

• LOCK 

0003 


026S() 7 

CHNTHS 

0003 


007706 

CLO 

0003 

1 

007677 

OAS 

0003 


0001 16 

olmin 

0003 

1 

C0PCS3 

fetvcc 

0003 

1 

00601 1 

flonah 

0003 

1 

007700 

FORNAJ 

0003 

1 

000000 

MEAD 

0000 

1 

OOOCO 7 

1 

0003 

1 

O26SI0 

IChain 

0003 


026S0* 

ICHN 

oooo 

1 

COOOO* 

I FLO 

OOOO 


000067 

1NJP* 

0000 

1 

000002 

I P T S 

0003 

I 

C07703 

IRD 

oooo 

1 

OOOOOl 

IREC 

ooco 

I 

000003 

ISTAT 

0003 


0001 1 1 

ISTOP 

0000 

I 

000012 

IpOCNT 

oooo 


000010 

J 

0000 

1 

ooocco 

K 

OOOO 

1 

00001 1 

HP 

0003 


00770* 

K»TS 

0003 


0001 l* 

krn 

0003 


C26S73 

KUNIT 

ooco 

1 

ooccos 

LINES 

C003 


000112 

LNC A T 

OOOO 

I 

000006 

LETS 

0003 


007701 

MAP 

C00-* 


C26SCS 

HAXClS 

0003 

R 

000120 

MEANS 

C0C3 


0 l *6 < 2 

N 

0003 


01*47* 

AILK 

0003 


COO 1 1 3 

NM 1 N 

G003 


COOGS 2 

nofeat 

POO 3 

1 

006010 

nOFlD 

0 00 3 

1 

007 7 0 » 

nopts 

0003 

1 

026S0* 

PUNCH 

0003 


0001 1 7 

SEP 

0003 

1 

007702 

sptrio 

0003 


00305* 

STOCV 

0003 


0001 IS 

STOMAX 

0003 

I 

00 7 6 I S 

sxmbls 


0003 I C26B72 VARSI2 


L _ _ 


001 00 

»• 

c* 

00100 

j • 

c* 

00100 

.)• 

c* 

00100 

q» 

c* 

Ooioo 

t • 

c» 

00100 

6* 

c* 

ooioo 

7* 

c* 

00100 

8* 

c* 

ooioi 

fl 


00103 

I0» 


ooin* 

10* 


00 ICS 

IC» 


00106 

106 


00107 

10* 


00107 

10* 


00107 

I0« 



This subroutine generates a Tape for display on The phis oaS. 
each field is on a separate file of the t a pe, 

A RECORD CONSISTS OF THE CLUSTER NUMBERS 
POINT on a PARTICULAR line belongs* 

SIXTEEN bit BYTES. 


TO kmICh EACH REWUESTEO 
THE VALUES ARE PACKE0 IN 


SUBROUTINE 0*STaP( 1PLACE, 1BUF, IOBUF) 

INCLUDE CCMkON.lIST 
PARAMETER MaXPCP»SC,HAKFET*3P 
parameter m,»cir»2sooo 

PARAMETER MAXFLC-ICO 

C0HH0N/PASS/HEA0CN2I , NOFE A T , f g T Vt C I M A XF E T | , | S T OP , LNC A T , NM | * , k hn , 

• STDMAX.DLHIN,5EP.HEANS(MaXFET,rAAPoP| ,ST oE v cmaxfet .maapopi , 

• NOFLD.FLDNaM(HaXFLO» •BLOC' M A X F LO • 6 I , BL* ( M a XT LO t 2 » , 


DASTOOOO 
OaSToq lo 
0 A S T CC 20 
0 AST 0030 

oastooro 

dastooso 

OAS 10060 
OAST 0070 
DASTOOOO 

oastoovo 


i 2 :z 2 :Sc*a 2 S 


5-49 


ORIGINAL PA' 

OF POOR QUALITY . 


00107 

10 * 

• SVpBlS(MAlf’OP) ,DaS.F ORmAT .MAP, 



00107 

10 * 

• SPT»J 6 .|RO,«PTS.NOPTS,CLDtNA*ror.MAKPOPI 



00107 

10 * 

• • NCHAAPOPI ,N 8 LKlNAiri.D,MA*P 0 Pl 

— 

- 

00107 

10 * 

• .PUNCH, HA »CLS, ICHN.CMNTMS, ICMA |N|NaXPOP) ,9A«S|2 



CO l 07 

101 

• »* 0 N | T 



001 10 

10 * 

|Nl E GE R *a*siz 



001 | 1 

10 * 

!NT t GE R MON c h 



ool:? 

1 C* 

"CaL HEaNS 



001 1 3 

10 * 

1 n T CGE« SP T p IG.8L0CK , 8 LA ,S t HBLS t H£AO,rETvEC .TIlONAH.OAS 



001 IN 

10 * 

INTEGER FORnAT 



001 IS 

10 * 

1 NO 



OCI 1 * 

II* 

CIMENSION 1BUM 1 ) . 1 O0UF ( 11 


0 AS T 0 | CO 

00117 

12 * 

DIMENSION IPLACE INOPTSl 


OAS TO 1 10 

00120 

1 3* 

CALL NTRANC7.I0I 


0AST0I20 

00121 

» 1 * 

K«0 


OASTOl JO 

001*2 

is* 

1 REC ■ 1 RD 


OASTOImO 

0012 ) 

16* 

IPTS-NOPTS 


OASTOlSO 

00121 

17* 

10 IF< |R£C*LE*I l|PT»*RPTS 


OASTOI 60 

001 2 * 

16* 

IF ( | RD • E Q • C 1 GO TC 20 


OASTOl 70 

00130 

19* 

CALL NTRAN17, 2, |PT5, IPLACE, ISTAT.22I 


OASTOI 80 

001)1 

20 * 

20 CONTINUE 


OASTOl 90 

00132 

21 * 

DO 50 IFL0*1 .NOFLC 


OAST 0200 

001 )S 

22 * 

L|NeS>BLK( I f Lo* 1 1 


0AST02I0 

00 136 

23* 

Lp TS*BL r 1 1 F l D ( 2 ) 


OAS T 0720 

00137 

2 * 1 * 

00 hC 1 ■ 1 *L|NES >- 


0AST0230 

00 H 2 

25* 

DO 30 JaliLpTS 


0AST0290 

001 IS 

26* 

K«K»| 


OASTOtSO 

001 16 

27* 

AP-IPLACE 1* 1 


OAST 0260 

00117 

28 • 

IBuFl J) ■ ICH* Is(KP) 


0AST0270 

001S0 

29* 

IF IIC.LT. IPlSI GO TO 30 


OAST 0260 

00 152 

)C* 

IREC-IREC-I 


OAST 0290 

OOIS) 

31* 

IF 1 IREC •E'3.01 GO TO 30 


0 AS T 0 300 

OOISS 

32* 

IF 1 1REC.E0* | I |PTS*KPTS 


OAS T 03 1 0 

00 1 57 

33* 

CALL NTRAN|7,2,|PTS,IPLACE.ISTAT,22| 


OAST0320 

00160 

31* 

K«0 


OAST 0330 

00161 

35* 

30 CONTINUE 


OAST 0 310 

0016 ) 

36* 

CALL PACK 1 1 6 » 9 • l P T S • lByF . 1 OB yF . | ROCNy | 


0AST0350 

00161 

37* 

CALL NTRANlDAS.t. I » 0 C NT , 1 OBUF . ! 5 T A T . 22 1 


DAST0360 

00165 

38* 

IF ! ISTAT.GT.0lG9 TO 10 



00 16 7 

39* 

IF 1 ISTAT.NE.-21G0 TO 35 



0017 1 

10 * 

AR| TEI6.B0I0AS* 1 

... . . 


00175 

11 • 

CALL NTRANIoAS.22.9.22. I 1 ) 



00176 

12 * 

RET'JRN 



00177 

13* 

35 ARITEI6.60I0AS, ISTAT 



00203 

11 * 

RETURN 


0 AST 0J90 

002 C 1 

15* 

IS CONTINUE 


OAST0900 

00206 

16* 

Call ntranioas.91 


0AST0110 

00207 

17* 

SO continue 


UAS T 0120 

002 | I 

98* 

• RITE U.70|N0FlD 


0AST0930 

00211 

19* 

return 


D AS T 0150 

002 | S 

50* . __ 

60 FOkmaTI/* *r|TE ON UN|T*»|3 t « TERMINATED ABNORMALLY • / • 

OAS 

tape nouastorao 

002 | S 

51* 

• T CREATED* .s* , * 1ST %7«* . 151 



002 | 6 

52* 

7 C F wRPAT ( / 1 * • | 6 , • FILES »RITT£N On d*S OUTPUT TaPe’I 


OAST 0980 

002 | 7 

S3* 

80 FORMAT!* ENq-OF-taPE ON UNlT*.l9»* LAST L | NE •KITTEN*. 

15/1 


00220 

51* 

End 


0AST0190 


END or COMPILATION! No DIAGNOSTICS* 
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0 F OR,* ISCCLS . ISCCLS 

UK I v AC 1100 FORTRAN V E*£C II LEVEL ISA -tE*CC8 LEVEL £12010010*1 
This cohpilation *as oone on 03 oec 73 at 12 : 22 : 5 * 


03 DEC 7 3 


** A | N prog*a« 

SToka G fc usco: cooetl I 0002C7: OATAfOl 0*0*72: blank cOm« 0 N( 2 » 000000 
CONNON BLOCKS: 

0003 PASS 02*579 

EXTERNAL RLFE m ENCCS (BLOCK, NAN£» 

ooos tdate 

OOOS SETUP 
000* TAPERO 
0007 ISOOAT 

0010 COVARN 

0011 TARITf 

0012 PCHSTA 

0013 CHAIN .. 

00 I 9 PRINT 

OOIS OASTAP ^ 

001* NSTOPS 
0017 NERR3* 


STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NaHE I 


OOOOS3 
I 00730S 
R 00001* 
I 000000 
I 026S0* 
| 0 * 0 *S 2 
I 0606SI 
R 000120 
I 00*010 
R C030SN 


IOL 

BL* 

DATE 

head 

ICHN 
KOIN 
< V AR 
ME*NS 
NOF LO 
STOEV 


0001 
0003 I 

0003 R 
0003 R 

0000 I 
0000 I 
0000 I 
0003 1 
0003 I 
0003 R 


000120 
00*!$S 
0301 I * 
030002 
300000 
3*0 *S 3 
0*O*SR 
0 1 *•* I 2 
CO 7 7 gS 
0001 I S 


ISlG 

BLOCK 

OlNIN 

HE01 
1 0 * T 
KPLCE 
LOIN 
H 

NOPTS 

STONAK 


0001 *s 

R 026S07 
I 0000S3 
* 000023 
0*06*1 
I 0077 3* 
I 000 1 1 2 
I 01R*7*» 

I 02*So'» 

I 0076 l S 


i*7G 

CHNIhS 

fetvec 

h£ 0 2 
INJPS 

kpts 

lncat 

NflLK 

PUNCH 

STHBLS 


0001S2 30L 
R 00770* CLO 
I 00*011 FLONAH 

1 0*0 AS J 1 
l 037703 IRD 
1 0301 I *• KRN 
I 007701 HAP 
1 000113 NM I N 
R 0001(7 SEP 
1 026S72 VARSI7 


000003 
I 007*77 
I 007700 

I 0 2 AS 1 Q 
I 000111 
I 026S73 
| 026S0S 
I OOOOS2 
I 007702 


SL 

OAS 

FORMAT 

(CHAIN 

(STOP 

KUN | T 
MAXCLS 
NOFEAT 
SPTrIG 


00100 

1 • 

c* 




1S0C0000 

00100 

2* 

c*« 




►••IS0C0010 

00100 

3* 

c» 




1SOC0020 

00100 


c* 

This PROGRAM PERFORMS A MOOJFIEO VERSION OF THE 

CLUSTERING 

ISOC0030 

OOiOO 

s* 

c* 

ALGOR I TM (IsOOATA) ORIGINALLY DEVELOPED By 

ball 

ano Hall of 

ISOCOOMO 

CO 1 00 

*• 

c* 

STANFORD PESEaNcH INSTITUTE. ThE ALGORISM h a s 

BEEN HOqIFIEO 

ISOCOOSO 

00 1 Ob 

7 • 

c* 

ON THE RECOMMENDATIONS OF EO KAn (LECI. 



ISCC0060 

00100 

B* 

c* 




IS0C0070 

OOIOO 

9* 

c* 

The PROGRAM EXPECTS mult ISPCCTRaL SCANNER 

OATa 


IS0C03B0 

00100 

10* 

c« 

In either ThE LARSTS 22 OR ThE UNIVERSAL 



1 SOC0090 

OOIOO 

1 1 • 

c» 

FORMAT, The oata tape should be assigned 

TO FORTRAN UN|T 3, 

ISOCOIOO 

OOIOO 

12* 

c* 

DRUM UNITS h and 7 ARE USED INTeRnALLT 

THE program if the 

1SOCOI 10 

00100 

13* 

c* 

AMOUNT OF OaTa REQUESTED EXCEEDS ThE FIXED 

DIMENSIONS, 

IS0C0I20 


5-51 


ORIGINAL PAGE IS 
Of POOP. QUALITY 



< 


OOlPC 
OOlUO 
OOlOu 
OQ 1 0 I 
00103 

00 l 0 % 
CO* JS 

001 C6 
00106 
00106 
03 106 
00106 
00106 
00106 
00106 
00107 
001 10 
001 I I 
001 | 2 
00113 
001 1* 
oot IS 
00116 
001 17 
00! 17 
00117 
001 | 7 
00121 


INCLUDE CO**On#lIST 
PARAMETER PaXPOP-SO.NAXFET* jc 
PAkaHETER HaXDIp«2SD00 

parameter pa*flo»ioo 

C0pm3n/PaSS/MEA 0< 921 , NOrt«T , FE T vEC I H A XF E T » , ! S T OP , L*C »J , M H j * , kRn , 

• STO^aX.OlPIN.SEP.^'ANSC^AAPET.hAXPOPI , S T 0EV 1 *6 *P£T .KsAPOP I , 

• •»0rL0.n.0*‘A*l ,, »«7O»tBL0cm-*«6XrL0.6»,BL*(HAAEL0»?). 

• SYhblSIPAXpOP) ,OaS, FORMAT, NAP, 

• SPT«!&,r«D,<PTS.*CPTS.CLDIPAXPoPi M A*POP» 

• t K. I «A AFOP 1 , NBLIC 1 P A*EtD t HAXPOP > 

• .Punch, paxclS.ICkm.Cmntms, I CM A I N 1 h A XPOP ) , v *«S l 2 
•|KJNI T 

integer varsiz 
Integer punch 

RE At HEANS 

INTEGER SPTsIG.SLOCt . BL« . S T MBL S , HE AO , F E T VEC . P LON AH . 0 AS 

INTEGER FORMAT 

EnO 

01 PENS I ON heO I I 101 ,HE02l 10 ! iOATE I 2) 

DIMENSION lOAT(HAXOI.I) 

Data heaO /» i ih .txs.aqh 


isocoi 30 
*isocoi*»o 

ISOCOlSO 
ISOCOI 60 


,T 100.20H 


.MH t T2S • 6 OH 


ISOCOI 70 
isocoiao 
ISOCOI 90 
1S0C02C. 


EQUIVALENCE CME01 1 1 I .HEA313) ) . < 0 A TE III • HE AO 1 I S > ! t 


/ 1H0.T 10.60MIS0C0210 

- //!•-/ 1S0C0220 

IS0C0230 


( 

0012 1 

2 S* 


• 

( HE 0 2 1 1 1 .HEAOI 201 ) 




IS0C0290 


00122 

26* 


Data 

MEDI /• HaNnEO spacecraft 

CENTER 

1S0C02S0 


00122 

27* 


• 

*/ 




1 SOC 02 6 0 

( 

00129 

28* 


DATA 

HE C 2 /• HOUSTON, 

TEXAS 


IS0C0270 

_ 

0012N 

29* 


• 

•/ 



- 

1 SOC 0 2 80 


0012** 

30* 

c* 






1 SOC 0290 

( 

00129 

31* 

C9_ 

SET THE DATE FROH TOATt 



. 

1SOC0300 


0012** 

32* 

c* 






IS0C03I0 


00126 

33* 


call 

TOATCIOATEI 



- 

1 SOC 0 320 

c 

00126 

39* 

c* 






1 S0C0330 


00126 

3S* 

c* 

CALL 

SETUP TO READ CARO INPUT AMO INITIALIZE 

OEF AULT 

VALUES 

IS0C0390 


00126 

36* 

c« 






IS0C03S0 

c 

00127 

379 


S CALL 

SETUP 






00127 

38* 

C • 






1 SOC 0 3 70 


00127 

39* 

c* 

CALL 

tapero To reao OaTa FROH Tape ANO STORE 

ON 

ORUH 


1S0C0380 

( 

00127 

90* 

c» 






IS0C0390 


00130 

91 • 


CALL 

TAPEROI 10AT1 




I SUC 09 00 


00130 

92* 

c* 






1S0C0910 

( 

00130 

93* 

c* 

CALL 

ISOOAT TO PERFORH CLUSTERING 




ISOC0920 


00130 

N9* 

c* 






1 SOC 0 9 30 


00131 

9S« 


KPLCC 

• nopts*nofeat ♦ I 




ISOC0990 

( 

00132 

*•6* 


CALL 

ISOOAT ( Id ATI 11 •IOATUPLcEM 




IS0C09S0 


00 1 32 

17* 

c* 






I SOC 09 60 


00132 

9 8* 

c* 

calculate covariance hatpix for each cluster 




IS0C0970 

( 

00132 

99* 

c* 






IS0C0980 


00133 

SO* 


kvar»kplcea»,opts 




IS0C0990 


001 1 9 

SI* 


CALL 

COVARR|10ATIKVAR1,|OAT||!.|OAT(KPLCC)I 




I soensoo 


00139 

S2* 

c 








00' 39 

S3* 

c 

create erips input tape 


.. . _ 

. 



00139 

S 9 • 

c 







c 





5-52 



. .. . . 



( 


♦ 


0013S 

ss* 


00137 

S 6 • 


00137 

S 7 • 

c* 

00137 

SB* 

c* 

0013? 

S9* 

c* 

OOlNO 

60* 


00 1 sc 

61* 

c* 

001 NC 

62* 

c* 

OOINC 

A3* 

c* 

001 **2 

AM* 


CO 1 h2 

AS* 

c* 

00 1 m2 

66* 

c* 

03 1 m2 

*7* 

C* 

001mm 

68* 


001 MM 

A 9 * 

c* 

OOImM 

70* 

C* 

001 NR 

71* 

c* 

OOImS 

72* 


00 1 M 7 

73* 


OOISO 

7M* 


ootss 

7 S • 


OOISS 

76* 


001S6 

77* 

— 

001 aO 

78* 


001 AO 

79* 

C* 

00 1 A 1 

BO* 


00162 

8 1* 


00162 

82* 

C» 

00162 

83* 

c* 

00U2 

8 M • 

c* 

00 1 A 3 

8S* 


00166 

86* 


00171 

87* 


00173 

80* 


0017M 

8 9 • 



I F C K UN 1 T *LE* 0) GO TO 10 
CAUL TRRfTEl tOATIKVARI » 

PUNCH STATISTICS 1 f REQUESTED 

10 IftrUNcM.GT.OlCALL »*C«ST a (I 0 • T f | I , I 0 A t * * v A* » » 

C»» a |N c Ll'ST r «S WHOSE elST A W C fS *»£ LESS T Mjk N OtHlN 

IF I ICHN.6T #0 ICALL CHAIN 

print final RESULTS 
CALL PN1NT1-I .lOATUPLCEH 
create OaS OUTPUT T aPE if desired 
IF |OAS*LE.o> go to so 

*0 1 H-N 0 PTS* | 

oo 2 o I«I*NCFLU 

20 LolH a HAAO(L 0 lH ifil R I I *2)1 
LOIH-LOIH ♦AOIH ♦ 1 
IF 1 IRO.EQ.OICALL TRNSFr 

CALL OASTAPI IOATII I .IOATIKOIHI .fOATCLOlHl I 

30 CONTINUE 
GO TO S 

TRANSFER The data In CORE fro* IOaTMCPLCEi TO I0AT1II 

SUBROUTINE tRnSFR 
00 20 I*l»KpTS 
20 lO'T U I-IDATUPLCEM-1 1 
RETURN 

end - 


isocosio 

1S0C0S20 
ISOCOSJC 
ISOCOSNO 
|SO C OSSO 
ISOcOSAO 
I socos /o 

ISOCOSTO 
ISOCOAOO 
’SUC06I0 
I SO C 0 6 2 0 
ISOcOAiO 
IS0C0AN0 
ISOCOAbO 
1S0C0A60 
ISOcOAlO 
ISOcOAbO 

ISOCOA90 
I S0C0700 

isocono 

ISOC0720 

ISOC0730 

IS0C07N0 

IS0C07A0 

IS0C0770 

ISOC07£0 

I5OC0790 

ISOCOAOO 

ISOCOSIO 

1SOC0820 


END OF COMPILATION: 

isocls symbolic 

ISOCLS COOE RELOCATABLE 


— 


ISOC0830 





* - 

No DIAGNOSTICS* 

29 NOV 73 

i3;mo:s8 

0 

01$S66 2 M 

1 R 

• 9 

(OCLCTEDI 

29 NOV 73 

t 3 2 MO: S8 

1 

01S6| 162 

36 

1 

(OELETeO) 



0 

0 * S6 1 226 

11 

22 

. 


( 


1 QUALITY 


e FOR,® ISOGAT , |SOO* T 

UNIVaC 1108 FORTRAN v ^XtC |I LEVEL ?SA -<E*lC8 LEVEL E120I00I0A) 
IhIs cOhPIlaTIOK «aS 0°NE ON 03 OEc 73 A T 12122:57 


03 OEC 7 3 


I2:22|SF.«A4 


SUBROUTINE ISOOAT entry POINT 001 240 


STORAGE USED: COOE(I) 001371; OATAIOI OCAlAp: BLANK cO""ON(2) ocoooo 
COMMON BLOCKS: 

0003 PASS 026571 


external References (Block, nahei 

0001 RESET 

- OOOS ntran 
oooa clock 
0007 CLDIST 

0010 PRINT 

0011 NAOUS 

0012 N 1 029 

0013 SORT — . 

OOh NERR3S 


STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NAME) 


f 

0001 


G0003S 

10L 

ooci 


0003QS 

1 1 CL 

0000 


006237 

120F 

0001 


00001 7 

1 2 7G 

0001 


000021 

1336 

l 

0001 


0G037A 

ISCL 

0001 


0001 06 

170L 

0001 


000131 

17 1G 

0001 


000*4 3 1 

1 VOL 

0001 


000071 

20L 


0001 


000167 

20CG 

0001 


000116 

200L 

0001 


000171 

201G 

LOOO 

. 

006213 

210F 

0001 


000152 

2 20L 

1 

000 1 


0C02S2 

22«* 6 

0001 


C001S7 

2jOL 

0001 


000333 

2506 

000! 


0005*1 

2S0L 

0001 


000316 

2516 


000 1 


000600 

2eCL 

0000 


006230 

30F 

0301 


0001 | 7 

3006 

000! 


0006(7 

3 1 OL 

0001 


000623 

320C 


0001 


000** 7 1 

33**G 

0030 


P0626 3 

310F 

0001 


000510 

31 IG 

0001 


000617 

3S0L 

0001 


000652 

360L 

/ 

0001 


000701 

380L 

0000 


00630 1 

3?0F 

oooi 


000 127 

10L 

OGOI 


000733 

loot 

0001 


000737 

1 1 OL 


0001 


000670 

HU 

0001 


000755 

1 30L 

0001 


001031 

110L 

OOCI 


0007 i 7 

1506 

0001 


001016 

1676 


0001 

— 

001 1 1 l 

R70L 

ooco 


0063 1 6 

190F 

0001 


001 127 

SOOL 

- ocot 


00 1 OS 7 

5066 

•ea i 


001172 

520L 

( 

0001 


001 1 IS 

5266 

0001 


C01 1 71 

S30L 

0001 


001112 

5376 

0000 


006333 

510F 

oooi 


001117 

5166 

V 

0001 


001210 

S50L 

0000 


006351 

5 6 OF 

0001 


001310 

60 7 G 

0001 


001311 

6126 

0001 


00021 1 

70L 


0001 


0002 1 A 

80L 

0000 

R 

00 3 1 00 

AMN 

0000 

R 

000000 

A V P 

0003 

1 

007305 

BLK 

0003 

1 

006155 

block 

i 

0003 

R 

02 ASO 7 

CHNTHS 

0003 

R 

p07 7 0 6 

CLO 

Mta 

1 

007677 

OAS 

0000 

R 

006211 

GIST 

0003 

K 

OOOI 16 

dlhin 

\ 

0000 

R 

006 2 25 

OMlN 

0000 

R 

P030J6 

On 

0003 

X 

4 

OOOOS 3 

FETVEC 

0003 

1 

00601 1 

flonam 

0003 

1 

007700 

format 


0003 

1 

000000 

head 

0000 

1 

006202 

1 

0303 

1 

0062p6 

1CCT 

0003 

1 

026510 

ICHAIN 

0003 

I 

026506 

1 CNN 

i 

0000 

1 

00 A 2 2 1 

INC 

0003 

1 

000112 

INCAT 

0000 


0061Q2 

INJPB 

0000 


006106 

INJP9 

0000 

1 

006120 

ie 

V 

0000 

1 

006207 

IRC 

0003 

I 

007703 

IRO 

0000 

1 

002731 

1SGMA 

-- 0000 

1 

006220 

ISPLT 

0000 

I 

006211 

ISTaT 


0003 

1 

00011 1 

1ST0P 

0000 

I 

Q0A201 

ITER 

0000 

I 

006210 

IRROS 

0000 

1 

006203 

J 

0000 

I 

006215 

K 

i 

0003 

1 

OOOOS2 

KOIM 

0000 

1 

p062l2 

KK 

ooop 

1 

006205 

kkt 

0003 


007701 

KPTS . .. 

0003 

I 

00011* 

KRN 

L 

0003 

I 

026573 

KUN | I 

0000 

I 

006223 

KX 

0000 

1 

006227 

L 

0003 

I 

0001 12 

LNCAT 

0000 

1 

006226 

M 


- 0003 

1 

007701 

NAP - 

0003 

1 

Q2650S 

NAXCLS 

0003 

R 

000120 

MEANS 

0003 

1 

0116(2 

N 

0003 

1 

011671 

NBLK 

/ 

0000 

1 

006222 

ncat 

0003 

1 

QOOl 1 3 

NHlN 

0003 

1 

000052 

NOFEAT 

0003 

l 

0060 1 0 

NCFLO 

0003 

I 

007705 

NOPTS 

l 

0003 

1 

02650** 

PUNCH 

0000 

R 

006216 

RnO 

0000 

R 

006213 

SO 1 ST 

0003 

K 

0001 t 7 

SEP 

0000 

R 

00603** 

S®MA 


0003 


0001 15 

SGM1N 

0003 

1 

CO 7 7 o2 

SpTRIG 

0003 

R 

003051 

S TOfc V 

0003 

R 

000115 

STOMai 

0003 

1 

007615 

5YH8LS 

( 

0000 

R 

00622 1 

TEST 

0000 

R 

O0621 7 

T|ME 

0000 

1 

0C61 1 6 

TR16I 

0000 

1 

00® 1 1 7 

TRIG2 

0003 

1 

026572 

VARSIZ 


• 


• -- 





— . 



, 

- - 

- - - 



, - 




m am 



< 


5-54 



( 


00101 

1 • 


SUBROUTINE IS006T1C.1P1.6CCI 

ISOUCOOO 

00103 

2* 


IfcCLUOC C°""0*,LIST 

1S0000I0 

0010* 

2* 


P6«6«€Tt* h 4 *P0*«53, , *6**‘ET»30 


00105 

2* 


P6*6M£T£* M6lo| **2S000 


QOIO 6 

00107 

2* 


PAK6HC T ER h A K r L I 30 


2 • 


C0h«CN / P 6S5 / M£60(*2 » t N0rE6T f reTvCCl*«6*FC T » t lSTOP t LMCAT i NK|;, t «»l* <t 
• 5 TqH a 6 , cL * l *.SC° • *E 6 n S1 h a > F £ T , h * « p O p 1 . S 7 oC * « H 6* F C T , H A * POP ) , 


00107 

2* 



00107 

2* 


• *OfLO'PLOK* H * H 6 I Fl.9 , *8L 0 C6**6*rLO»6 , »8L*lP* R fLO* i, » 


00107 

2* 


• SThBlSIhAXpOpI , 06S,r0«6*T,H»P, 


00107 

2* 




CCI07 

2* 


• ( M^llPOP) ,N«JLR < hAXFlD,*AXPORI 


00107 

2* 


• . PUNCH. *A*CLS. ICnN.CHNTHS. ICH6|N<H6XP0P» , VARSIZ 


00107 

2* 


• ,AUn 1 T 


001 10 

2 • 


INTEGER V AR S 1 2 


001 | 1 

2» 


INTEGER PUNCH 


00112 

2 • 


real means 


001 13 

2* 


integer spt«ig.8locr*blr , stmbls.heao.fetvec •» lonah.das 


001 I* 

2* 


Integer format 


001 | S 

2* 


EnO 


00116 

3* 


EQUIVALENCE ( SGNlN.STOHA* 1 

IS000G2O 

00117 

*• 


oIhension avPi^a^fet .haxpopi 

IS000030 

00120 

S» 


DIMENSION 1 sGHAI HAXPOPI , 0NtMAXP0P> 

isouoo*o 

00121 

6 • 


01 HEN; I ON C r NOFEA t, nOPt$> , 1 PLACE «NOPTs» ,AhN(HaaFEt*HAaPoP» • 

Is°00050 

00121 

7* 


• SGMA|M6XP0p> 

1S000060 

00122 

8* 


EQUIVALENCE KOIH.NOFEATI . (LNCAT . INCAT 1 

I 5 0000 7 0 

00123 

*• 


INTEGER TRIgI.TRIGZ 

i souocao 

0012* 

19* 


0 1 HENS 1 ON IPIMAXPOPI 

1 S000090 

00125 

II* 


MU2-0 

ISOOOIOO 

00126 

12* 


00 % | ■ | . H A x CLS 


00131 

1 3* 


Nil »*0 


00132 

I** 


00 s JM.NOrEAT 


00135 

IS* 


Amm j, | ) »0*9 


00136 

16* 


5 A VP 1 J . I 1 «0. o 


001*1 

17* 

. ... . 

ASSIGN 230 TO I TER 

1S000I 10 

001*2 

18* 


•CAT-1 

1 SO u 0 1 20 

001*2 

19* 

c* 


1S0001 JO 

001*2 

20* 

c* 

ASSIGN DATA to clusters 

ISOOOI *0 

001*2 

21* 

c* 


ISOOOISO 

001*3 

22* 


10 CONTINUE 

15000160 

00 1** 

23* 


IF 1 LNCAT *LE • 1 •AND*KKT.GT. 1 | GO TO 530 

ISOOOI 70 

001*6 

2** 


CALL RESET 

1S0U0I80 

001*7 

25* 


Call ntrani««.ioc 

IS000I90 

OOlSO 

26* 


call NTRANI7»10» 

1S0U0200 

0CI5I 

27 • 


1CCT-N0PTS 

1S000710 

0CI52 

26 • 


I R C » 1 R 0 

1 SO 00 2 2 0 

00 1 S 3 

29* 


20 IF 1 IRc.LE. 1 1 IccT.APTS 

ISOO023Q 

001SS 

39* 


IF IIR0.E9.n> GO TO *0 

1 S0u02*0 

00 1 S 7 

31* 


I*ros«nofeat*icct 

1S0002S0 

00160 

32* 


CALL NTRAN|s.2.|*R0s*C.ISTAT.22» 

1S000260 

00161 

33* 


IF 1 lSTAT.GL.el GO TO *0 

ISU00270 

00U3 

3** 


AR1TE 16.30) (STAY 

1 SGU02 3G 

0CI66 

35* 


3C F0Kma t 1* ERROR REaOING cRuh--- 1 S T A** * » 1 * 1 

IS0 U 0290 

00167 

36* 


*0 CONTINUE 

1 SOyO 300 

00170 

37* 


00 100 I-I.ICCT 

ISOUO 310 

00173 

38* 


RA«| 

1S0 0 0320 

0017* 

39* 


IF (LNCAT. LT.71 GO TO 80 

1 SOuO 3 30 

00176 

*0* 


S0IST-I0.0E+2Q 

IS0003*0 


5-55 


ORIGINAL PAG.; iy 
OP POOR QUALITY 


001 7* 

*»• 


00 70 J- 1 • L *C A T 

ISOOO36O 

00202 

*2* 


oisr-o.c 

15000360 

00203 

*!• 


00 50 8*1 »Ncf EAT . 

IS000370 

00206 

**• 

SO 

DlST» 0 lST ♦ AaS(H t As5M,JI- c MC,|») 

1SO U 0380 

00210 

*5 • 


IF »OI5T*SOIST1 60.70.7C 

IS000390 

002 i 3 


60 

KK ■ J 

IS0D0*00 

002 | * 

* 7 • 


501ST.0IST 

15000*10 

0C2|5 

* 6 • 

70 

C 0»»T l NUE 

1 S000*20 

00 2 | 7 

*9* 

80 

COmT I NCif 

1 S0;)0* 30 

002 20 

50* 


MKK > «N 1 K* > • 1 

! SOqO* *0 

00221 

51 • 


iplace* l 

|SOoO*50 

00222 

52* 


9NO>(riC«Tlf(KK)l«l.)/riOAT(*MAR)} 

isooa*6o 

00222 

53* 


00 90 Kb|*»gFEAT 

ISOOO*70 

00226 

5*» 


AMNIK a KlM « RNC»AMN( K ,KK 1 ♦ C ( K , (1 / F L 0 A T ( N ( K K 1 I 

15000*80 

00227 

55 • 


A VP ( K , K K ) - RkC*AvP(K .KK I ♦ C(K ( !) • *2/F LOAT 1 N 1 KKJ > ... 

1 SOOO* 90 

00230 

56* 

90 

CONT 1 NUE 

1 SOO 05 0 0 

00232 

57* 

too 

CONTINUE 

1S000510 

002 JM 

58* 


IF UR0.EG.c» cc TO DO 

I S0OOS2O 

00236 

59# 


CALL NTRANl7.1.ICCT,IPLACC#ISTAf ,221 ... . 

IS000530 

00237 

60* 

no 

IRC-1RC-I 

1 50005*0 

00 2*0 

6 1* 


If 1 IRC ,CT,cl 60 TO 20 

1 S 0 u 05 50 

002*2 

62* 


CALL CLOCMTIHE) 

15000560 

002*3 

63* 


Ml TC 1 *•!>•! VIHC * 

I SCOOS 7 0 

002*6 

6* • 

120 

FORMAT!* Ti„E ! • • » F 7 « 3 1 

IS000580 

002*7 

65* 

. - •• - 

00 |3o K'lilKCAT ^ - - 

1S0D05?0 

002S2 

66* 


onui«n(k! 

I 50006 CO 

00253 

67# 

. . — . 

00 130 J*I,nOFCAT - 

1S0D0610 - 

00256 

68* 


SToEVIJ.K >«SQ*T (AVP< J,* >-APNlj,K !••*» 

I SOyOo 2 0 

00257 

69* 

130 

PLANS 1 J,* MaPNI J ,K 1 

15000630 

00257 

70* 

c* 


150006*10 

00257 

71* 

c* 

CALCULATE OjSTaNCES BETWEEN CLUSTER CENTERS 

IS0006SC 

00257 

72* 

c* 


1 S00066C 

00242 

73# 

» 

CALL CLOIST 

15000670 

00262 

/*• 

c* 


1 500068 C 

002*2 

75# 

c# 

IF 1 STOP EQUALS ZERO RETURN aF Tf R INITIAL CLASSIFICATION 

I SO JC6 9 0 

00262 

76* 

c# 

. 

I 5000700 

00263 

77# 


IF IPODtKKT ,PAF 1 1 150,1*0,150 

15000710 

00266 

7 8* 

MO 

CALL PRINTIaKT, MLACE1 

1S0D0720 

00267 

79* 

. . 

60 TO 170 

1S00073C 

00270 

80* 

150 

IF (HOC (KKT ,KRNI 1 170,160,170 

150007*0 

00273 

81* 

160 

CONTINUE 

I S000750 

0027* 

82# 


CALL PRINTIKKT, IPLACEl 

1S00076C 

002 7 5 

83* 

170 

IF 1 ISTCP.EO.OJFETURK 

IS000770 

00275 

8 * • 

C 


1S000780 

00275 

85# 

c 

REMOVE CLUSTERS «ITh TOO FEN ELEMENTS 

IS000790 

00275 

86# 

c 


I S000800 

00277 

87# 


00 160 R«l, INCAT 

15000810 

00302 

88* 


IF INtRI-NHlNl 19C10C.18O 

IS00062C 

00305 

89 • 

180 

CONTINUE 

I 5 0 00 8 30 

00307 

90* 


CALL CLOIST 

150009*0 

00 3 | 0 

91* 


GO TO 220 

IS0DC850 

003| 1 

9 2* 

190 

If (MOO(K*T ( KRM 1 200, ,200 

1 50008c 0 

003 1 1 

93* 


*R1TE 16,2 MU ,I.UI .NMJn 

1 S0UC87C 

00321 

9** 

200 

CALL OELETEfKl 

15000880 

00322 

95 • 


GO TO 170 . .. 

15000R90 

00323 

96* 

210 

f OM*aT 1 *0 CLUSTER ',12,* REMOVE? FOR HAVING ONLY *,l6. 

1S000900 

00323 

97* 

2 

» • ELt*ENT5. PM. NO. ELEMENTS IS *.I0» 

IS0009IC 

0032* 

98* 

22 0 

CONTINUE 

I500092C 


( 


( 

r 

* 

< 

( 

( 

i 

c 

( 

( 

( 

( 

( 

( 

c 

< 

< 

( 


00 * 2 * 
00*25 
00 * 2 ? 
00*27 
00*30 
00*33 
00 3 3 u 
00 3 3 C 
0 0 * 3 C 
003] I 
CC 3 ] 2 
0 0333 
00333 
003]3 
00*3* 
00*3* 
00*37 
00 390 
00 39 3 
00 396 
00 3 h7 
0C3S0 
00*52 
003S* 

00356 

00357 
00*6 I 
00*61 
00*61 
00*61 
00 * 6 * 
00 * 6 * 
00*65 
00*70 
00373 
00*76 
00*77 
00*77 
00377 
00*77 
00*00 
00*01 
00*02 
oc*o* 
oo*cs 
00*10 
00*10 
00*1 1 
00*12 
00 * 1 * 
00 * 1 * 
00* 1 5 
00*20 
00*22 
00 * 2 * 
00 * 2 * 
00*26 
0C * 2 7 


**• 

100 * 

101 * 

102 * 

10* # 

10 ** 

1 05* 
106* 
107* 
1C** 
10 «* 
110* 
III* 
112* 
113* 
1 l * • 
115* 
116 * 
117 * 
116* 
I l * • 
I 20* 
121* 
I 22* 
12 3* 
12** 
125* 
126* 
127* 
128* 
I 29* 
I 30* 
131* 
132* 
133* 
I 3* • 
135* 
1 36* 
137* 
138 * 
139* 
1 * 0 * 
1 * 1 * 
1*2* 
1*3* 
1 * * • 
1*5* 
1*6* 
|*7* 
I 98* 
1*9* 
ISO* 
1S1* 
1 S 2 • 
1S3« 
15** 
155* 
156 * 


c 1 $000930 

If <KKT.£Q. | STCP 1 50 TO 230 15000**0 

GO TO I T£R < 2*0* * 1 C I 15000*50 

c IS0o0*60 

15000*70 


c* 

c 

c 


c* 

c* 

c* 


c 

c 

c 


c 

c 

c 


SPU T t T t"*T,0* 


2*0 Tfc u l-0 

6SS|GN *>C TO | T £ * 
lSPLT-0 

00 260 <■! • JNC *T 

F1N0 NAXI*Uh STANDARD deviation per clusUn 

SGHa(KI«STOEV( I ,K> 

1Sg*A IK »•! 

00 2S0 J*2 ,*0 | P 

If ISTOEVI J,K|.SG*A|K) | 250.2*0,2*0 
2*0 ISfaHAIKlO 

SGPaIK»« 5T0EVI J.Kl 
250 CONTINUE 

!F(SGHA<K).gE.STO*AX> isplt«isplt*i 
260 CONTINUE 

test«floaTi isplti/flOatilncat J 

IfITeSI.LT..201.ANc.TNIg2.e0.0.aN0»«RT.»IE. IST0PI50 TO *10 

if itrig2«eg.o> assign 2*0 to Iter 

15 SPLITTING REQUIRED 

270 K ■ I 

NCAT- incat 

280 If (K-NCAT) 2*0.2*0.500 
290 IF ISTDMAX-SGHAIX I I *00. *00.310 
*00 IF IN(Kl-(NHlN*NN|N«2l I *10.310,320 
310 <•*♦! 

GO TO 280 

SPLIT CLUSTER K 


| SO i)0 9 6 0 
1S0009*0 
1 5001 COO 
|S0 0 ICI0 

I SOu 1 020 

IS00I030 
1 SOU 1 0*0 
ISOUIOSO 
I SOO 1060 
I SOU 10 70 
IS0UIC80 
ISOu 10*0 
isooi too 

1S001 I 10 
1S001 120 
ISOOI 130 
ISOOI 1*0 
ISOOI iso 

ISOOI | 60 
ISOOI I 70 

ISOOI 1*0 
I SOO I 200 
1 SOO 1210 
1 SOO | 220 
I SOU 12 30 
I SOO 12*0 
ISOOI 250 
ISOOI 260 
1 SOu 1270 
IS0UI280 
I S001 2*0 
ISOOI 300 
ISOOI 310 
ISOOI 320 


320 TNIGI-I 

KA>1SG*A(K| 

330 1NC*T*INCAT*1 

IF ( INCAT. LE»*A*CLS1 GO TO 350 
A R 1 T E I6.3*0>KKT 

390 FORPATI/* M a XIMUP CLUSTERS ON ITERATION* * !*/• 
•UT NOT PERFORPEO*/* 

LNCAT-p AXCL5 
GO TO SCO 
350 INC«|NC*T 
GO TO 360 

363 00 37{t I ■ I . » 0 1 N 
370 AMN I | . 1 NC » *t*Nl 1 ,K » 

IF (SPTRIG.gT.O) GO TO 380 
SEP<SGPA<< > 

380 AMN<KX,KI»AmN<KX.K»*SEP 

AHN(KX,|NC)«AHN<KX,INCI-SEP 


1S001330 
I SOD 13*0 

1 SOOI 350 
ISOOI 360 
ISOU 1370 

SPLITTING RewUJKE.0 6 1 SOq 13*0 
150013*0 
IS001*00 
I SOO 1*10 
IS0U1 920 
I SOO 1 930 
1 SOU 19 90 
|S0 U 19S0 
isooi 96o 
I SOU I 9 70 
ISOOI 980 
ISOOI 9*0 


$Gma<<>-0*0 


isouisoo 


5-57 


ORIGINAL PAG , is 
OP POOR QUALITY 



( 


OO^Jo 

|57* 



If t HOD («<T ,<7K » 1 

00733 

158* 



■ RITE <6,37cl«,lC*, 
fO*NAT!*0 CLUSTER 

00770 

157* 


370 

0077Q 

1*0* 


2LU5TE A * • I 2 l 

007*1 

161* 


700 

CONTINUE 

0C7*2 

142* 



<•<♦1 

007*3 

163* 



63 TO 280 

007*3 

1 6 * • 

C 



007*3 

165* 

c 


his ITERATION 

007*3 

1*6* 

c 



007*3 

167* 

c 


A«£ CLUSTERS TO BE 

007*3 

160* 

c 



0 C 7 * 7 

167* 

. 

7 | 0 

continue 

007*5 

170* 



TR l G2» 1 

007*6 

1 7 | • 



ASSIGN 230 TO ITER 

007*7 

i 72* 



00 720 1 • 1 • t 7C 4 T 


00752 

173* 

-- — - 

1 P « I » • 1 


00753 

177* 

720 

CONTINUE 


00755 

175* 


I "0 

- - • - 

00756 

1 76* 

730 

!•!♦! 

TO 7 70 

00757 

177* 


If ll.GE.lNc*T) GO 

00761 

1 7 e * 

• 

If f 1 P t I > • ME • * 7 GO 

TO 730 

00763 

| 7 9 * 


DNlNaOLNjN 


~ OC 7 6 7 

1 eo* 


Na 1*1 


OC 7 65 

111* 

. . ... 

A A ag 

'N# 

00766 

102* 


00 **0 J»M, INCAT 


-.. 00771 

183* 


If (1PIJ)«NE*JI go 

TO 7*0 

00773 

10 7* 


If CCLDC l » J» •GT.9HIM! GO TO *70 

0077S 

185* 


OllNaClDt 1 • J* 


00776 

106* 


A <a j 


00777 

187* 

770 

COM I NUE 


oo&oi 

188* 


If (KK.E0*0) GO TO 

730 

00503 

109* 


|P!K* l«I 


00SQ3 

190* 

c 


and kk 

00503 

1 9 1 • 

c 

COH0INE CLUSTERS I 

OOSo 3 

192* 

c 



00S07 

193* 

750 

CONTINUE 

. 

00505 

19** 


00 *60 A • 1 • K 0 1 R 


00610 

1 95* 

760 

amnia, i I a Con* IIUKNIMMdNUO 

005(2 

196* 


0 N ( | laONl I 1 *0n t AA | 


005| 3 

197* 


N I I |a*| | MN|KKl 


005 | * 

• |98« 


If IMOOCAAT # ARN1 1 

730, ,730 

005 | 7 

199* 


• RITE 16.7*oM.AA, 

1 

00527 

200* 


GO TO 730 


00525 

201 • 

770 

00 *00 1 • 1 • | NC A T 


00530 

202* 


If 1 | P C 1 1 • N£ . I (CALL 

delete < 1 1 

00532 

203* 

*00 

continue 


00537 

20-* 

7*0 

fONMATt* clusters 

••12,* ANO * 

00537 

if 

2CR * » I 2 1 


00537 

206* 

C* 



00537 

207* 

c* 

reinitialize 

. . 

00537 

208* 

c* 



00535 

209 • 

590 

CONTINUE 


00536 

210* 


00 CIO J • 1 # 7 A x C L S 


005* I 

211* 


N( J*aO 


005*2 

212* 


ON! JJaO.O 


006*3 

213* 

. 

SGH A ( J 1 * C • 0 


005** 

217* 


I5GHA! JlaO 



ISOOiSlO 

15001520 

[T IN THE • # 1 2* • TH PaRa»»E t £R 1*10 CISOOISJO 

ISOOISLO 

15001550 

IS001540 

1S001S/0 

isooiseo 

isooisto 

IS00I40O 
15001610 
15001620 
15001*30 
I SOD | 4*10 
15001650 
($001660 

isoouto 

I SOD 1 680 
1 SOU 16 9 0 
1500 1700 
ISOOI 710 
(500(720 

1 5001 733 

1 5001770 
15001 750 
ISO& 1760 
1500(770 
ISOOI 7»0 
15001 770 

I soo 1803 

15001510 
15001020 
1 SOO 16 30 
1SOO10MO 
15001050 
1 SOO 10 60 
15001070 
IS001860 

•AMNlK.KKl )/(uN< I >+0 N( «*l > ISOqIS^O 

15001700 
15001*10 
15001720 
15001730 
15001770 
15001750 
I SOO 17*0 
1 SOO 17 7 0 

,!2»* HA VC 0CLH COMBINED INTO CLUST 1 SOO 1 7 80 

15001770 
1S*'2000 
IS002010 
15002020 
1 5002030 
15002070 
15002050 
15002060 
1 50020 70 
15002000 


5-58 






( 


COSvS 

215* 


00 510 6*1 .kOIM 



1 50020*0 

oosso 

216* 


A VP ( ft * J 1 "0 • P 



(5002100 

OOSsi 

217* 


STOEV <K * J» *0*0 



IS002I 10 

00S52 

218* 


ME ANS ( K , J 1 • * MN ( K . J» 



IS002I20 

oo*s3 

2 1 6 • 


ammik , wi •o»c 



1S0O2I30 - — 

OOSb** 

220. 

5 1 0 

CONTINUE 



1S002I 6 0 

OOSS7 

22 l • 


IF ( AAT.E9. (STOP* GO TO 520 



I 5002 i 50 

OOS*.| 

222 • 


kkt»kkt*i 



|S0 0 216C 

00 St 4 

223* 


GO To 19 



1 S0U2 I 7 0 

00562 

2 2*« • 

C 


* 


150o2|«0 

00562 

2 25 • 

c 

E * 1 T . 



1S002I90 

00562 

22 6* 

c 




I 5002200 

00563 

227* 

S20 

1 5 T0P«0 


- 

1SC02210 - - - - - 

005*6 

22U* 


GO TO 10 



IS002220 

00565 

229* 

530 

IF <(«T*NE*2> 50 TO 550 


- 

ISO02230 

00567 

230* 


ARlTE 1 6 • 5 6 g , 



1 SOD 22 60 

0057 1 

231* 

560 

FORmaTi* The ORIGINAL CLUSTER 

•as not SPLIT 

. EXAMINE The input 

VAIS002250 ... 

0057 1 

232* 

•LUE FOR STOr*X'/l 



IS002260 

00572 

233* 

- 

RETURN 


. . 

I S0Q2 2 7 0 

00573 

236* 

550 

AR1TE 16.S6g»KKT 



I 5002 2 80 

00576 

235* 

560 

format!//* * r t e r • i i 6 i • iterations all data 

M A S been aSSIGNEO to 

01S002290 

00576 

236* 

• N£ CLUSTER • / 1 



IS002300 

00577 

2 3 7* 


return 


- ... - - - ... 

I S0q2 3 1 0 - — 

00577 

238* 

c* 




IS002320 

00577 

2 39* 

c« 

Internal subroutine delete 

A CLUSTER 


IS002330 

00577 

260* 

c* 




IS002360 

00600 

26 1 • 


subroutine delete ill 


— • - - 

IS002350 

00603 

262* 


INcaT»INCAT-| 



15002360 

00606 

263* 


IMLKtCO* « INCAT# 1 | 1 RETURN 



15002370 

00606 

2 6 6* 


00 560 J«L*. InCAT 



1SOU2380 

006| | 

265* 


00 550 L«1 .rC|M 


• 

IS002390 

006 | 6 

266* 


AMNIL ,JI»ANn (L* J* l 1 



IS002600 

006 1 S 

2 67* 


MEANS (L * JI»mEANS<L » JM 1 

. 



-- — — • 

006(6 

268* 

550 

STOEV(l.Jl«sTOEV(L*J»II 



IS002610 

00620 

2 69* 


kUl*N(J»ll 

- — ... . - 

. ... - - - 

15002620 

00621 

250* 

560 

DM J » -CM J* t 1 

♦ 


I 5002630 

00623 

25 1 • 


RETURN 

. 


15002660 

00626 

257* 


E NO 



15002650 


END OF 

compilation; no diagnostics* 





ISOOAT 

ISOOAT 


SYMBOLIC 

RELOCATABLE 


29 NOV 73 SOi 

29 NOV 73 


0156,7,2 

I* 

252 

(DELETED! 

01570622 

3* 

1 

(DELETED, 

0,570666 

16 

89 





4 


ft for,* f 1R0I2 .F ikoi? 

UN I V AC 1106 FORTRAN V LXtC II LEVEL 2SA -1C*EC6 LEVEL (12010010*1 
This COHFltATfON FAS SONE ON 03 DEC M A T 12122:52 


02 DEC 23 


12:22:52*31* 


FUNCTION find 

NKTchA 


LNTRy 

PO 

INT 

ENTRY 

PO 

1 N Y 

entry 

PO 

INT 

000 357 1 

Oat 

BLOCK 

t I* 

ANEl 


0CC2A5 
00031 I 
030333 


STORAGE uses: cooun 0003571 OaTA(O) P000M1 blank C 0HH0N(2l oooooo 


0003 NCRR36 


STORAGE ASSIGNHENT (OLOcK. type. RELATIVE LOCATION. NAHEI 


0001 

000023 

1 1*6 

0001 

C00027 

1 20G 

0001 


000073 

1 *0G 

0001 

000I3R 

!*0G 

0001 

ooo i RT 

1 *RG 

0001 

OOOO** 7 

20E 

0001 

OOOIO 7 

IrL 

cool 


0001 1 i 

*0«- 

0001 

000*0* 

*0L 

0001 

000*13 

* OG 

0001 

000 22 *♦ 

*0L 

oooc 

1 C 000 C 3 

blank 

0000 

i 

00000'' 

cohha 

oooo 

1 OOOOOl 

CROSI* 

oooo 

I OOOOOO 

find 

oooo 

1 COOOO 7 

I 

0000 

C0001S 

INJP* 

oooo 

i 

00001 1 

J 

oooo 

1 000005 

K 

oooo 

1 00000* 

k 

0000 

I 000012 

NUN 

0000 

1 000013 

N«ORf> 

eooo 

i 

000002 

VECSl 2 

oooo 

1 000010 

VK 





00100 
OolO! 
00101 
00103 
00102 
00103 
00 1 0 3 
00103 


I • 
2* 
3* 
M* 

5* 
*• 
7* 
• • 


//syntax 

FUNCTION FInO(CARO»COL|VECTOR) 


Ihplicit Integer ia-h.o-zi 


cl- 

Cl 

Cl- 

Cl 


00103 

10» 

Cl 



00103 

11* 

Cl 

ANGS • • CaRO 

- BCD BUFFER 

00103 

12* 

Cl 

CCL 

- PTR TO POST I oN 

00103 

13* 

Cl 

VECTOR 

- VEC CONTAINING 

00103 

1 R • 

Cl 


TO BE LOCATED 

00103 

15* 

Cl 


IN IS GIVEN | N 

00103 

1 *• 

Cl 


EG. /2.»* , , # 

00103 

1 7* 

Cl 

Ni.HvtC 

• FULL *ORD INTE 

OC 1 0 3 

18* 

Cl 



00103 

!*• 

Cl 

REUUIRES* NCR 


00103 

20 • 

Cl 



00103 

21* 

Cl 

Purpose** used to 

LOCATE SPECIAL 

00103 

22* 

C! 



00103 

23* 

Cl 

RETURNS** CCL 

- PTS aT SYMBOL 

0C103 

21* 

Cl 

J 

- pTS aT SYM B Ol i 

00 1 Q3 

25 • 

Cl 



00103 

00103 


r I .. 



* 6 
2 7® 

Cl 



00103 

28* 

Cl 

CALL** J • NXTCHRICARD.COLI 

00103 

2T» 

Cl 




F 

INUOOOO 

F 

IN00010 

F 

INU0020 

F 

INU003O 

-IF 

INUOQNO 

IF 

INOOOSO 

-IF 

|N000*0 

IF 

1 Nu OC 7 0 

IF 

IN00080 

IF 

1NU00R0 

IF 

INOOlOO 

IF 

1N001 10 

IF 

INU0I20 

IF 

1NU0|3C 

IF 

INOOIRO 

IF 

INUOISO 

IF 

INQ0I60 

IF 

INUOI 70 

IF 

INOUI 80 

IF 

INOOI 90 

IF 

1 NOO 2 00 

IF 

IN00210 

IF 

1 N U C 2 2 0 

IF 

IN00230 

IF 

|N00*N 0 

-IF 

1 N002t»C 

IF 

1NU02*0 

IF 

IN00270 

IF 

IN|)0260 


60 


, , , . .. . _____ n ni^i.i ■ .a—im inn m 



0CI03 

• • 3C* 

c: 

A R US • • 

00103 

31* 

C I 


00103 

32* 

Cl 

PURPOSE . 

00103 

3 3* 

d 


0CI03 

3A* 

Cl 

RETURNS. 

00103 

35* 

ct 


00103 

JA* 

Cl 


OC 10 3 

37* 

Cl — 


00103 

36* 

C 1 


00103 

39* 

Cl 

CALL.. 

0CI03 

AC* 

Cl 


00 1 C 3 

N 1 • 

Cl 

ARCS*. 

0C103 

N<* 

Cl 


0CI03 

A J* 

Cl 

PURPOSE. 

00103 

1** 

Cl 


00103 

AS* 

Cl 


00103 

AA* 

Cl 

returns. 

00103 

a;* 

Cl 


00 1 03 

A6* 

Cl 


0C1O3 

H 9 • 

Cl — 


00103 

SC* 

Cl — 


OC 1 03 

51* 

C 


00103 

52* 

c 

•X 

00103 

S3* 

c 



OOiOM 

OClOA 

ooios 

OCIOS 

0010S 

ooios 

00105 


S L £ *B 0 vt 

PURPOSE • • LCC4T1S TmC NEXT NONBLANK SVMB<>L |N *CA80* 

re turns. * j - locateo character iblan* if eoci 

CCL - StE ABOVE 


CALL., J • KUNBCRICARO.COL.NUPVECI 


STOPS WHEN NONUHERIC 1 S fOUNO 
j • NO or INTEGERS LOCaTEO 

numvec - contains the *j* integers 


01 HENS I on NI.HVEC !|),CARD!|1.vECtOR!JI 

data crosiz/A 2 /. vEcsiz/30/. blank/* •/, comma/*. 


( 


00112 

A 1 • 



K - VECTOR! l 1*1 




001 13 

A2 • 



L • C OL * 1 

• 



001 1A 

A3* 



00 10 C0L*L.CR0SI7 


( 


001 1 7 

A A • 



00 JO !•?.* 

• 



CC122 

AS* 


to 

IF f CAP q(COl) .E a.VLC^ORI 1 I 1 GO TO 20 




0012A 

AA* 



l •-! 


l 


00127 

A 7 • 



COL • L-l 




00130 

AB* 


20 

flNO -I 




00130 

A A • 

C 


• RITE! A, 1021 tcARD<K».K*l»A2lfcOL»l.VEC T ORUl 


( 


OOl 3 

7P* 

c 

102 

FORHATl* flf.O ENTEREO*/* *.4281,110/* *.IS.AA| 

— 



00 131 

• 71* 



RETURN 




00131 

72* 

c 

- 


.. - 

1 


00131 

73* 

c 






0013 1 

7 A • 

c 


* 

**— * 



00132 

7S* 



ENTRY NXTCHRICARD.COL! 


l 


00 l 3A 

7 A • 



L • COL* 1 




00I3S 

77* 



If (L.ST.CRqSIZI go TO HO 




00137 

7 A • 



00 30 COI-L.CRDSIZ 

. 

( 


00 l A 2 

7f • 



f I NO ■ C**DlCOL) 




001 A3 

80* 



If If IND.NE. BLANK) GO TO SO 6 ••*♦• 

• 



001 AS 

81* 


30 

CONTINUE 


l 


001 A7 

87* 



COl-CROSIZ-1 




OCISO 

83* 


AO 

f|NC • BL • Nfc 0 ••••• 




OOlSi 

8*4* 


SO 

CONTINUE 

• - - 



00 1SI 

8S* 

c 


• RITE (A.IOA) ICAR01K 1 ,K-l ,A?) .COL.NATCHR 




00IS1 

86* 

c 

1 o 1 * 

FORMAT!* NAICHR ENTEREO*/' *»62a1«I10/* *AA) 





00IS2 

87* 



return 



if 1N002VO 
| F I NOO 300 
If IN00310 
I F 1 NOO 3 ^0 
If IN0013C 
If IN001R0 
if INQ03S0 
-IF I NO 0 3 AO 
If IN0 0 3fo 
If IND03 8 0 
If INOOSVO 
If I NOONOO 
If INOORiO 
If INQ0H20 
IF I NUO H 30 
If INOOMHO 
If INOOASO 
If I NOO A 6 0 
If INOOhTO 
-if lNooteo 
-IF I NOON 90 
f INOOSOO 
f INU05I0 
f IN00520 


f 1 NCOS TO 
F INOOSAO 




F3NU0SS0 — 

. 

- 

f INOOSAO 
-F 1 NOOS 7 o 
•F IN00S80 
f IND039C 
f IN0C600 



FINOOaIO 
f IN00A2C 

- 

- • 

f IN00A30 
f IN006A0 
F INQOaSO 

f inqoaao 
f 1ND06 70 



f IN00A80 


$8 

FlttOHAVO 


f 1N00700 


ll 

*> 

FIN00710 


-f IN00720 


f 1N00730 


f IN007A0 


L 

f INO07S0 



f IN0O76O 


> 

f INU0770 


f 1N00780 



f I NOO 7 VQ 



f INOCBOO 
f 1N008 10 
f 1N00820 
f 1NU0830 
f IN008A0 


F IN008S0 
F INU0860 

— 

•— * 





0Q152 

«#• 

C 



... 

00152 

89* 

c 




00162 

♦ 0* 

c 



- — 

00162 

tl* 

c 




00163 


. 


|M»» KUPbERIcA r C«C0L,NUMVEc1 


00 156 

93* 



L * C 0 L*» 


ooisa 

99* 



«K«yUSIl 


00157 

96* 



CC 80 J.l ,V* 


00162 

96* 


•— 

MUM • 0 


00U3 

97« 



OC 60 COl*L.C*DS!Z 


00166 

9e» 



IF (CAKOICOl 1 *E0.BL ANK 1 GO TO 60 


00170 

99* 



IF tCAfiC(COl) *CQ* COMMA) GO TO 7Q 


00172 

100* 



NaORD • FLO ( A 8 S ( 0 ) . 6, CARDICOlH 


00173 

101 • 



N609D • N 606 0 - 98 


00179 

102* 



IF (N«0*0*Lt«0*OR.N«ORd*GT«9I GO TO 90 


001 76 

103* 



MUM ■ 10 * NUN ♦ N«0R0 


OC 17 7 

1 09 • 


6C 

CONTIMLE 


00201 

105* 



COL • CROSlj*! 


00202 

106* 



GO TO 90 

- 

00203 

107* 


70 

NuMyEC(J) • Nu H 


00209 

108* 

-- . 


L • C OL ♦ 1 


00205 

109* 


• 0 

CONTINUE 


00207 

1 10« 



J • VECS1I 



00210 

111* 


90 

COL • COL-1 


0Q2 | | 

112* 



NUMvEClJl ■ 


002 | 2 

in * 



FlNp • J 6 ••••• 


002 t 2 

1 1 9» 

c 


• Hint 6.10a! «CAbO(*C» .K*| ,621 .COL. NUMBER 

.InUMVECIO »*•! .U l 

002|2 

115* 

c 

106 

FORhaTI* NUMBER ENT E r EO* /• ' 6 2 A 1 • 1 1 0/ * • 

• 1 S * 1 8 I 3 I 

002 t 3 

116* 



RETURN 


00213 

1 1 7* 

c« 

»• • • 

• 


002 | 3 

118* 

(•••« 

• function entries must return value in 

ORIGINAL FUNCTION name 

002|3 

Ilf* 

c« 

► ••• 

• 


002|9 

120* 



END 



r IN00870 
•r ifcuoeao 
F IN00890 
F IN00800 
f IHU0910 
F | N J0920 
F INOq* Jo 
F INU0990 
F I N 0 09S0 
F |N00960 
F IN.09/0 
F IND0963 

F 1*00990 

F INUICOO 
F IN. 101 3 
F !Ny|C20 
F 1*01030 
F | NO 1090 
FIN01C&O 
F I NO | 060 
F I NO 10/0 
F I NO 1 000 
F IN0I090 
F 11*01 100 
F I N 0 I t 10 
F I No | |20 
F 1 NO 1 1 30 
F I MO I I NO 
F | NO I I SO 
F (NOll *0 
F1N0I 1 20 
F |N0| |80 
F INOI I 90 


end of compilation: NQ diagnostics. 

F | NO | 2 SYMBOLIC 

f i no i 2 code Relocatable 


29 NOV 

73 

i3:no:66 

0 

01597936 

|R 

120 

'DELETED! 

29 nOV 

73 

| 3I90ISS 

l 

01552656 

2 9 

1 

ioeleteoi 




0 

01552706 

|R 

25 



00 I 30 

• ! ' I 


( 


5-62 


0 f OH , • f LTNUN.F LTNU h 

UNlVic 1108 FORTH**! V £X£C || LEVEL 2 SA -IC*ECS LEVEL £ 12010010 *. 
this c ohp i l * t i on * a s ogne oh 03 oec 73 a t i2:22:sv 


03 OEC 73 


I2:22:s**220 


FUNCTION FlTNUM 


ENTQY POINT 000302 


STORAGE used: COOECII 03032*: OATAIOI 0030**7; BL Ant cOmhon 1 2 1 000030 


EXTERNAc REFERENCES |0cOCF t NANf., 


0003 HEAPS* 

000 h K£ RR 3% 


?SSIGRH£nT te^OCK. TTPE, relative location, nanei 


000 1 
0001 
0001 
0000 I 
0000 I 
0000 N 
0000 | 


000013 I3L 
OOC 2*0 2206 
OOOISO 7 01 
000031 ElTNuH 
00000* MINUS 
030002 PNUM 
000011 VECPOS 


000 1 300**3 | I OL 

3001 OOOCTR 30L 

0001 000*22 ?QL 

0000 1 Q00023 I 

0000 I 000021 hornum 

0000 I 000020 SIDE 
0003 t OOOOIS RnUM 


0001 00003* |3qG 

0001 000103 nOL 

0000 I 000003 blank 
0000 00002* INJPS 

0300 I 00001* PCNT 
0000 I 000000 SIGN 
0000 I 00001 I ZERO 


oool 0000*8 *0L 
0001 000I3S SOL 

0000 I 000001 COMMA 

oooo i 030017 iter 
0000 | 000010 PERI 00 
0000 I 000007 star 


oool 000 * 0 " 20*6 

0301 009 I •* I *0L 

0000 I 000012 CR0SI2 

0000 I 000013 L 
0000 | OOOOOS PLUS 
0000 | 000022 VECF IN 


00100 

1 • 

C 

//F lTNUM 


fltnoooo 

00101 

2* 


FUNCT ION 

fltnumicaro#col.numvec,vechax» 

fltnooio 

00101 

3 • 

c 


.. 

F L T HOC 20 

00103 



IMPLICIT 

INTEGER |A*NtO*I) 

FLTN0030 



Cl* 1 




uu 1 0 J 

6 m 

Cl* 1 




00103 

7 • 

Cl 


• 

ifltnoo*o 

00103 

«• 

CI 

CALL** 

J • rLTNUM(CARD,COL,Nu”V£C*V£C"AA> 

IFLTN0070 

00103 

9* 

<i 

. - 

- 

IFLTN0080 

OQloS 

10* 

Cl 

ARGS • • 

CaRO - *2 COL CARO BUFFER 

!«-LTN00*0 

00103 

11* 

Cl 


COL - PTR TO FIRST COL IN C*RO TO SCAN 

ifltnoioo 

00103 

1 2 • 

Cl 


Nu"VEC - BUFFER IN *H|CH TO RETURN Th£ NUMBERS 

ifltnoi 10 

30103 

1 3* 

Cl 


VECSIZ - length OF NUMVEC 

1 FL T NO 1 2 0 

00103 

II* 

Cl 



IFLTNOI 30 

00103 

IS* 

Cl 

REbUlRES* 

none 

IFLTNOHO 

00103 

1 *• 

Cl 



IFLTNOISO 

00103 

1 7* 

Cl 

purpose •• 

INTERPRETS REAL NU-BERS SEPaRTEo BT COMMAS ON CaRO 

1 F L T NO 1*0 

00103 

18* 

CI 


and returns Them ?n nu^vEc* 

IFLTNOI 70 

00103 

IV* 

CI 


STOPS AT FIRST •NONUmEric* 

IFLTN0I80 

00103 

20* 

Cl 


(NOTE* NUMBERS MaT aP*Ea« IN 

IFLTNOI 90 

00103 

— 21* 

CI 

• . 

•OaTa STATEMENT FORMAT* 1 

IFLTNOZOO 

00103 

22* 

Cl 



1FLTN0210 

00103 

23* 

Cl 

RETURNS* • 

C CL - COLUMN WHERE SCAN TERMINATED 

IF LTN0220 

00103 

2H» 

Cl 


VM„CC - VECTOR OF REAL NUMBERS FOUND 

IFLTN0230 

00103 

2S« 

Cl 


FlTnuM - NO OF NEAL NUMBERS R£TuRnEu 

iflTnozro 

00103 
nn 1 n 1 

ssft 

Cl 



IF LTN02S0 

00103 

4 7 " 
2 8* 

Cl*" 

CI-« 



••• I * L I NQ2*0 
••• IFL T NO 2 70 


n, 2 

ns Q 


O HCJ 



00103 

2?» 

C 



FLTN0280 

0C1O3 

jC* 

c 



FLTN029C 

ocioi 

31 • 



PEAL Nl-PVEC » 201 

F u T 1030C 

00 1 PS 

3 2* 



DIN£NSltN C.**3I*2» 

FLTN03IC 

OC ins 

3 3* 




FL t n0320 

ocio 4 

31* 



, pcptoo/***/. 2 cpo/* 0 */» c«o s i 2 / *2/ 

F G T No 3 3o 

ocir* 

0010* 

35* 

c 



F L T NO 3 10 

Je • 

c 




CC10 6 

37* 

c 



FLTN0 3 60 

001 1 7 

38* 



L ■ CClM 

FLTN0370 

CP17C 

39* 



vtc»>cs » 1 

Ft T NC 38 0 

00121 

if 


10 

fcNUM ■ 0 

FLTNC39P 

00122 

1 1 • 



P C N T • 0 

FLTnCi&O 

00123 

12* 



PKUP • 0.0 

fltnoho 

0C12H 

93* 



ITe* • 1 

F LTNC120 

00125 

11* 



Sloe ■ -1 

F LTNC130 

00 1 26 

15* 



S I <!*• ■ *1 

f LTnOUC 

00 1 26 

16* 

c 



FLTNOibO 

00127 

17* 



00 60 CCL-L.CRCSIZ 

FLTN016J) 

OC 13 2 

18* 



IF (cARoKOl ) .CQ*eL*MK 1 GO TO 60 

FLTNQ170 

0013** 

19* 



IF (CARDICOt 1 .EC.PLuS) CO TO 60 

FLTN0180 

0013* 

50* 



IF iCAAOlCOi 1 .EO.COHPA ) GO TO 70 

F L T NO 9 90 

001 *»0 

51* 



IF ( CA*OtCOi)*R£*"lNUS) GO TO 20 - 

fltnosoo 

00112 

52* 



SIGN • -SIC* 

FlTnOSIO 

00113 

53* 



GO TO 60 v. 

F L T NOS 2 0 

001 11 

51* 


20 

IF fO'-OlCOc 1 .KE.ST#RI GO TO 30 

FLTN0S30 

001 1* 

55* 



IT£R » tNUH 

FLTN0510 

001s 7 

56* 



Kf.UH ■ p 

FLTN055C 

00150 

57* 



Fc*»T ■ 71 

FLTNGS60 

00151 

se« 



PNUH ■ C • 0 

FLTNQ570 

CO 1 52 

59* 



Slot • -1 

FLTN0580 

00153 

60* 



SIGN » * 1 

FLT N0590 

00151 

61* 



GC TO 60 

FL T N06 00 

00155 

62* 


30 

IF »C6*01C0c 1. RE. PERIOD! GO TO 90 

FLTN0610 

00157 

*3* 



SIDE • 1 

FLTN0620 

001*0 

*1» 



GO TO 60 

FLTN0630 

OCUI 

65* 


90 

IF ICAPOlCOt 1.CT.2ER01 GO TO 90 

FLTN061C 

00163 

• 6* 



PORNUH • FLO<ABS<0) ( *. CaRDICOlM - 18 

FLTN0650 

00U1 

67* 



IF (SICC.IT.OI GO TO 50 

f L T N0660 

001 6* 

*«• 



PC N T • PC N T ♦ I 

FLTN0670 

00167 

*9» 



PROP • PfiUfWMoRNUI* 1 0. I ••PCNT 1 

F L T NO 6 60 

00170 

70* 



GO TO 60 

FLTN069G 

001 71 

71* 


50 

«NU* • 1 C**Mih*HORNG* 

FLTNOTOO 

00172 

7 2* 


*0 

CCNT | NUF 

FLTN07 1C 

00172 

7 3* 

c 



F L T NO 7 20 

00171 

71* 



COL ■ CR05 1 / ♦ 1 

F L TN07 JO 

00175 

75* 



GO TO 90 

F L T NO 7 10 

00 1 76 

76* 


70 

VtCFlN • VErPOS*l TER« I 

FL TN0750 

00177 

IT 



IF | VECFlN .GT. Vtc"AH » VlfPlN • VEC"*X*| 

FLTi«07*C 

00201 

78* 



00 AO 1-WECp0s.VECF IN 

FLT 1C 770 

00201 

79 • 


ac 

NUMVlC«|» • S|GN*l6NUh*PNUN) 

F l T NO 7 (*0 

C02u* 

• c* 



L • (.' 0 L ♦ I 

FlTNc79q 

00207 

• l* 



VECP05 • V£ ( F|N*l 

F LTNOGOO 

00210 

82* 



IF ( VECPOS. t C. VICMAA 1 GO TO 10 

FLTN0810 

002 | 2 

83* 



GO TO 110 

F L T n06 20 

002|3 

81* 


90 

COL • COL-I 

F L T NOS 3 0 

002 1 1 

85* 



VECFlN • V£ C P0S* 1 TCR-I 

FLT N0810 

0(32 | S 

86* 



IF 1 VECFlN .GT. VEC*** 1 VECFlN • VFc*** 

FLTN0850 


( 


5-64 




002|7 

»?• 


Co ICO i«n(PoS, vr cr In 

F E 7n0860 


03222 

68* 

IOO 

NUHVCCM* • S!GH*»*M»K6PM|W! 

rLTN 0 B7o 


0022H 

87* 

HO 

rtfNUH « VEc^lN 

F LTNQ880 


0322H 

»:• 

c 

MU ▼£ (6.706) (C*P0m».K-».62l. C Ot . FLTnUh , I NUH VEC 4 1C » , R • 1 , F L t NUN 1 

f tTNoevo 


002?h 

VI • 

c 706 

f ORr AT 1 • F L T NjjK CnTC^ED*/* *. »2«l.ll0/' • • ! 5 • 20F • . 2 1 / ' '.10r6.2> 

FL T nCVOO 


00225 

v 2 • 


NETtRN 

f L TN09I0 


00226 

73* 


t NO 

F L TN0V20 

— — — 


c *«0 CF COH^It»TION: NO OI »GNOST ICS. . 


F|.TNUN 

syhbcl ic 

2V NOV 

7j |):nc:56 

a 

0j55 jhHV 

1 7 


f^tnuh coot 

*£LCCMABlE 

27 NOV 

7J |1;70:*6 

1 

01556072 

25 

1 





0 

01556(22 

1 5 

21 


(oeccreo) 

(OELCTEOi 







1 




( 


( 
( 
( 

j ( 


1 


•j , 

i ( 

: 






i 


c 


j ( 


6 FcN,« pack.pac* 

UN!V A c 1106 FORTRAN V EXEC II LEVEL 2 S* -IE*Ece LEVEL E 120 IOOIOAI 
This COMPILATION «aS DONE ON 03 OEc 73 «T 12223:01 


SUSROuTIkI p*C» 


ENTRY POINT OOC 206 


STORAGE USEC: COOE(l) 000237 : OATAICI 000025 ; BLANK c<>""0N(2) 000000 

external References (BLOCK. NaH£, 

0003 NERRJ* 

STORAGE ASSIGNMENT (BLOCK. TfPCl RELATIVE LOCATION, NAME) 


0001 00002 A IOL 

0000 1 OOOOOi OBIT 


0001 000105 20L 

0000 I OOCOO 4 * OVER 


0000 I 000000 IBIT 
0000 I 000003 REHaIn 


OOCO 000006 iNJPt 
0000 | 000002 60 1 N 


00101 

00103 

0010N 

00105 

00106 
00107 
001 10 
001 I I 
00)13 
001 IS 
OCI 16 
00H7 
00120 
00122 
00123 
001 2*» 
00125 
00 126 
00127 

00130 

00131 

00132 

00133 
0QI3H 
00135 
00 1 36 


I* 

2 * 

3* 

5 « 
6 * 
7 • 
«• 
9- 
10* 
I I 6 
12* 

1 3« 
1 • 
15* 
16 * 
17» 

•18* 

19 * 

20 » 

21 * 

22 * 

236 

2 A • 
25 * 
26 * 


SUBROUTINE PACK ( lNGTh.BI aS.nSAhP. InBUF ,OBUF .R00UT I 

implicit intEgeria-z) 

- DIMENSION InBUF ( 1 ) t OBUF ( I ) 

IBI T-36-LNGtH 
AUOUT • | «B I AS/36 
00IT>IA6S(B1AS*IBIAS/36)636I 
A 0 I N • I 

10 If («OiN.GT,NSAMp)RETURN 

IF MOB I T«LnGtH| «GT« 36) GO TO 20 

FL0|0BIT,LNgTh,0BUF|«00uT) l»FLD( t 8 I T , L N G T h , INBUF I *0 I N)| 

• 0 I N-*D I N ♦ I 

ob i t*ob i t ♦lngtm 

IF ( OB I T • L T • 36 I GO TO 10 

OB I T«0 

•C0UT«600uT#l 
GO TO 10 

20 REMA lN-36-Ofc I T 
over-lngtm. remain 

FLO | OB I T.REpAIN,OBUM*DOUT 1 I-FLOl I B I T ,RE M A IN. INBUF ( ROIM ) 
AOOuT •6D0UT ♦ I 
JBI T - I b I T*R£M a|N 
OBIT-0 

FLO I OB I T .O w £r,OBuF I ROOuT I > -FLO C JB I T • 0 VER , I NBuF ( *»D 1 N ) ) 
R01N*«0IN6| 

OBIT-OBI T+OyCR 
GO TO 10 


q 3 OEC 7 j 


12’.23: 


0000 I 000005 JBII 


P AC A 0000 
PACKOOiO 
P A C aOO 2 0 
PACK0030 
PACKOOAO 

PACK0060 
PACK0070 
PACKOCKO 
PACKOOVO 
PACAO I 00 
PAC AOI 10 
PACAOI 20 
PACAOI 30 
PACAOI AO 
P AC A 0 I 50 
PACAOI 60 
PACAOI 70 
PACAOI 80 
P A C A 0 | 90 
P AC *0200 
P A C A 0 2 l 0 
P AC A 0 72 0 
PACA0230 
PAC A02A0 
PACA0250 


j 

c 


00137 

27* . — - • END 


- 

- 



PACA0260 




•j 


END 

cf compilation: 

no DIAGNOSTICS. 













PACA 

_ symbolic 


29 

NOV 

73 

i3:ai:o2 

0 

0 1 S 7 322 A 

1 N 

27 

(OELETEDI 


L 


pack 

code Relocatable 


29 

NOV 

73 

|3|Ai:02 

l 

0 1576016 

2 A 

l 

(DELETED) 





- ... - 


~ . - - 





0 

01576096 

. IN 

1 7 



1*653 





5-66 


9 ro*.# PChST * » PC hS t a 

OKI VAC not TORTRAN v £ xE C II LEVEL 2*R •( E*EC8 LEVEL €12010010*1 

This compilation *as oOne on oj dec 73 »r 12 : 23:03 


03 OEC 73 


12123: 2*93 


SUBROUTINE PCHSTA ENTRy POINT 00034S 

STORAGE OSEOj COoE(I) 030*00; OaTA 4 C| 030200; BLANK c°MM0N(2) 000000 

coupon slocks: 

0003 PASS 02*S7*t 

external references i Block , na*e> 

OOOV NNCOOS 
OOOS N»OU« 

000* N I 02* 

0007 N I 0 I * 

0010 NERR3* 


c.% 


o ** 


STORAGE ASSIGNMENT iblock, TYPE; RELATIVE LOCATION, NAMEl 


0000 
0000 
0001 
0001 
0001 
0001 
0000 
0003 R 
0000 R 
0003 | 
0000 I 
0000 
0000 | 
0003 I 
0003 | 
0003 I 
0003 1 
0003 | 


OOOOSV 
000107 
0000 7 7 
0001*3 
0002 ** 
000*1 2 1 
0000*7 
02*507 
00002S 
030000 
00000* 
0301 2S 
000037 

00770* 
0301 I 2 
01 V6 I 2 
03770S 
007702 


I oof 
|Sof 

1 7 0 G 

2 2 7 6 
2*7G 
3n*tG 
bof 

CMNTHS 

e 

HEAD 

ICAL 

MJ»* 

ISUN 

kpts 

lncat 

N 

N0PTS 

SPTRI6 


0000 

0001 

000 I 
000 1 

0001 
0001 
oooo 

0000 R 
0003 I 
OOOO I 
0003 I 
OOOO I 
0003 I 
0003 I 
OOOO I 
0003 I 
OOOO I 
0003 R 


0000 s7 
0000*0 
0001 I s 
000200 
033*00 

000*m2 
P300SI 
030C3V 
9000*3 
03002* 
02&SI 0 
03003V 
cool I 1 
9301 l v 
030033 
C> V67* 
030032 
0030SR 


HO 7 

ISTG 

2 0 0 6 
2 3*G 
2 7*G 
3j3G 
? 3 F 
CL*SS 

fctvec 

I 

(CHAIN 
1NUM 
I STOP 
KRN 

lrec 

N3L* 

NREC 

STDEy 


oooo 

0000 

0001 
3001 
0301 
0001 
OOOO 8 
0003 R 
0303 | 
OOOO 1 
0003 I 

oooo t 

OOOO I 
0003 | 
0903 I 
000) I 

oooo | 

0003 H 


OOOO* 4 

0001 I 4 

00013* 
00020 s 
00022V 
OOOSI * 
00001 < 
00770* 
00*01 I 

OOOOVO 

0 2 6 S 0* 
OOOO!? 
00001 * 

0 2*S 7 3 
007 7g I 

0001 I * 
000010 
0001 |S 


llQf 

1*0 f 

2 I OG 

2 V2G 

30L 

•lOL 

BLANK 

CLO 

f lonam 
I BBT 
ICHN 
I PL US 
I* 

KUN | T 
MAP 
NM 1 N 
PC MONT 

stomax 


0000 

0001 
0001 
0001 
0001 
oooo 

0003 I 
0003 | 
0003 | 
OOOO I 
OOOO I 
0303 I 
OOOO I 
OOOO | 
0003 1 
0003 | 
0003 I 
0003 1 


OOOO 77 
000072 
OOOlSo 
00023q 
000*20 
0000*4 1 

00 7 3oS 
007*77 

007700 
00003* 
000000 
00770* 
J0003S 
000030 
02 *SqS 
0000S2 
0 2 * SO V 
00 7 6 | S 


1 SgF 

1 *SG 

2 I *6 
2SN& 

*o 2u 
*QF 
BLK 
OAS 

FORMAT 
I B 1 T 
1 FLOS V 
IRO 
IRRO 
L 

NAICLS 

NOFEAT 

PUNCH 

SYMBLS 


OOOO 

0000 

0001 
0001 
0001 
OOOO 
0003 I 
0003 R 
OOOO R 
OOOO I 
OOOO 
OOOO | 

oooo i 

oooo I 

0003 R 
0003 | 
0003 K 
0003 | 


000102 
0001 I 7 
ooois* 
0002*** 
000**0 
0000*4*1 
00*1SS 
0001 I* 
000007 
000020 
000131 
OOOOOS 
000027 
000031 
000120 
00*010 

0001 I 7 

02 AS 7 2 


Subroutine pChstai l ock,covari 

INCLUOE COMMON, LIST 
PARAMETER TPOP»SQ,MAXFETb30 
parameter m**d!m»2SoOO 
parameter haxflomoo 

COMMON/PaSS/HEAOI m 2) , NOF E A T , F t T VEC 1 MA XF E T I , I S TOP , LNCA T , NM | n , <Rn, 

• STDMAX.OLMIN.SEP.MEANSIMAXFET.NAXPOP) .STocVIMAXFCT .MAXPOP j , 

• N0FL0,FL0N,M1M 4 XFL0) t8L0CK|M^XFL0»*» , 8L* I *A *FLO • 2 ) , 

• stmblscmaxpopi ,0aS, format , Map, 

• SPTRfG, IRO.<PTS,NOPTS, cLD(MAXPoP,MaAPOP) 


pcmsoooo 

PCmSOOIO 


( 
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( 

00333 

S2* 

170 

• • 

F0KMATI*N0PTS**»|9) 

• 

00333 

S3* 

C* 


PCHSQ3S0 


00333 

S“* 

C* 

. 

PCHS0340 


00333 

ss* 

C* 


PCMS0370 

< 

0033“ 

S 6 • 


$C b rOUT|K£ »>aSa (NtMAAp) 

PCMS038C 


00337 

S 7 • 


Nlic*N^*A«l 0 /6 

P C hS0390 

( 

003*0 

68* 


t "tC* NU, '* R D*’ NR EC* 5 

•tmSOIOO 

CC3*I 

6 V* 


NPtC*N*EC 4 * 

PCHSO“ 10 


003*2 

60* 


1 

P Cm S0“20 

( 

003*3 

61 • 


DO “0 I ■ 1 .NPEC 

PChS0“30 

003<i6 

62* 


IF ( | .EQ.N8EC >INUM*LPEC 

PCMS0““0 


00360 

63* 


IF ( INUh.Efi.r >GC TG *0 

PCHS0“S0 

( 

00362 

6** 


00 30 J»1 • 1 NUN 

PCHS0*60 

003SS 

66* 


l»R t *|Mjl*i 1-1 )*H 

PCHS0“70 


00366 

66* 


1 1 > i T « I e T « j) 

PCMS0*80 

1 

00367 

67* 


ISIGN-FLOC 1 e 1 T .6. L0CK(t»*0)l 

PCMSO“TO 

00360 

68. 


IF 1 ISIGN.Ea. 1 PLUS) FLO t IBIT,6, LOCK C 1 ««C I » .FLO C 0 , 4, 6L«N* ) 

PCHS0600 


00362 

6 V* 


1BBT-ABSI 1 B 1 T • 6 1 

PCHipSIO 

( 

003 6 3 

70* 


FLOl I BBT ,6, lOC* ( 1 1 - «D » ) -FLO « 0 , 6 # E 1 

PCH60620 

0036“ 

71* 

30 

CONTINUE 

PCHS0630 


003 6 6 

72* 

“0 

CONT INUE 

PCMS0S10 

i 

003/0 

73* 


IF (LPEC*EQ«oILBLF*<nREC-I )*I9 

PCNSOSSO 

00372 

7“* 


IF IlPEC»DT *o)lBLK*(NREC'I 1*11 * lft(L*EC) 

PCHS0660 


00371 

76* 


IF UPEC .EQ.3 >LBLF»L8LKa | 

PCMS0S70 



00376 

76* 


RETURN 

PCHS06B0 

( 

00377 

77* 


End 

PCHS06VQ 


end of compilation: 
pchSTa symbol 


DIAGNOSTICS. 


symbolic 

29 

NOV 

73 

l3S“i SOS 

0 

0) 67**2“ 

1 9 

77 

code Relocatable 

29 

NOv 

73 

|3j*| :0S 

1 

0IS76SI2 

2* 

1 






0 

0IS76S12 

I* 

18 


IOCLETEO) 

(DELETED) 


( 


( 

( 

( 

( 

( 


g F<)R,# PRINT .PRINT 

UNJVRC 1108 rORTRAN V ExEC || LrV*L *SA -le*fC 8 L|V P L r l20l30l0A, 
This compilation ms done on 03 cec 73 at 12:23:0s 6 


subroutine print Entry point 33100 a 


STORAGE uSEO; code ( 1 » 001035.' 0 A T A ( 0 ) 00IIA6; BLANK (OMHONIZi OOOCOO 

common blocks: 


03 DEC 73 


I 




0003 PASS 026576 


caternal references i block . namei 


000s 


ntr an 
















000s 


sethrg 


_ 














0006 


NRDUS 
















0007 


N 1 02S 
















0010 


NlOIS 
















0011 


NE RR 3S 

- - 


... 

... . 



- 



— 

- • 

— 

— 



STORAGE 

assignment 

1 BLOCK . TYPE. RELATIVE. LOCaTI 

ION. < 

NAME) 


. — 

• 



— 


- 


0001 


000033 

IOL 

0001 

eoo^i* not 

0001 


000*10 

1 ROL 

0001 


oooo* 7 

1 R 3G 

0001 

- 

OOOIOl 

I 55* 

000 1 


000*57 

1 *0t 

0001 

000700 170L 

0001 


000127 

1 72 U 

0001 


000137 

2006 

ooot 


0 00 1 <4 6 

2056 

0000 


00071 3 

2 1 OF 

0001 

000172 2 1 7g 

0000 


000715 

220F 

0001 


000202 

22 5G 

0000 


000716 

230F 

0001 


00021 1 

23*6 

0300 

000721 2R0F 

0001 


000261 

26*6 

0000 


000*32 

25 0 F 

0001 


000*73 

2936 

0000 


0007S 1 

260F 

0301 

00030* 2630 

0000 


0007 s 7 

270F 

0000 


0007S7 

28qF 

0000 


0007*3 

2*0F 

0000 


000747 

30OF 

ooot 

003363 Jq3G 

0001 


00036*1 

30*G 

0000 


COO 77 7-3 1 qF 

0000 


001003 

320F 

0001 


000*135 

32 7 G 

0000 

031011 33o r 

0000 


ooio** 4 

3HoF 

0001 


000*156 

3<toG 

0000 


0010*0 

3S 0 F 

0000 


00*0 4 3 

36qF 

0001 

013547 J*76 

0000 

— 

ooio* s 

37 0 F 

0001 


000575 

37RG 

0000 


001103 

38 0 f 

0001 


000*0* 

ROOG 

0001 

030*** M|1G 

0001 


00062*1 

RING 

0001 


000 7 1 1 

***n & 

0001 


000 7 3** 

6S2G 

0001 


00023S 

*0L 

oool 

003335 80L 

0001 


000351 

»0L 

0000 

R 

000*71 

BLANK 

0003 

1 

007305 

8LK 

0003 

1 

006 1 SS 

BLOCK 

0003 

0*6507 CHNTHS 

0003 

R 

0077q6 

CLO 

0000 

I 

00000! 

COL 

0003 

1 

00 T 6 7 7 

DAS 

0003 


0001 16 

OlMIN 

0C03 

l 003053 FETVEC - 

000) 


00601 1 

FLPNAM 

0003 

I 

0077Q0 

FORMAT 

0003 

l 

000000 

HEAD 

0000 

1 

0306 7 H 

1 

0000 

1 00070* IB 

0000 

I 

000700 

ICCT 

0003 


026510 

ICHA1N 

0003 


02*50* 

IChn 

0000 

1 

030707 

IE 

0000 

1 0307QS I FLO 

OOQQ 

1 

000710 

INC 

0000 


001127 

1NJPB 

0000 

1 

000677 

IRC 

0003 

1 

007703 

IRO 

0000 

1 03070* IREC 

0000 

I 

000701 

ISTaT 

0003 


0001 I 1 

ISTOP 

0000 

1 

000673 

j 

0000 

1 

000703 

JPTS 

0000 

1 p30*7* K 

ooop 

I 

000672 

knt 

0003 

1 

00770** 

kpts 

0003 


0001 1 ** 

URN 

0003 


02*573 

K UM I T 

0000 

1 000*75 L 

0000 

1 

00071* 

line 

0000 

1 

000705 

LINES 

0003 

1 

0001 12 

LNCaT 

0000 

1 

00071 1 

LPTS 

00C3 

I 0 3 7 7 i I H 4 P 

0003 


0*65qS 

MAACLS 

0003 

R 

000120 

heans 

0003 

I 

0166)2 

N 

0003 

1 

01 H67S 

NBLK 

0003 

0301 13 NH I N 

0003 

1 

000052 

NOFEAT 

0003 

1 

006010 

wOFLO 

0003 

1 

007705 

NOPTS 

0000 

1 

000513 

OUT 

0000 

I 000000 PTS 

0003 

1 

02650*1 

PUNCH 

0003 


0001 1 7 

SEP 

0003 

1 

007702 

sptrig 

0003 

R 

00 305 H 

stdev 

0003 

030115 STDMAX 

0003 

1 

00761 S 

STHBLS 

0003 

1 

02o572 

VARSI2 





00101 


1 • 


Subroutine pR int i kkt . |Pl ale i 








PR I NOQOO 


- 



00103 


2* 


INCLUDE COMMON. LIST 








PR 1 NQOlO 





0010* 


2* 


PARAMETER 

Ma AP0P«53,MAAFET»33 












OOIOS 


2* 


PARAMETER 

Ma«01M»25030 













00106 


2* 


PARAMETER 

Ma<FL0«I30 













00107 


2* 


C0HM0N/PASS/MEAO1R2I .NOFEAT , 

FETvECIMAXFETj 

. istop. 

LNCAT .nmin 

i.KRN, 







12 3 : 5 • i C 
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r 

( 

( 

( 

e 

( 

c 

c 

( 

( 

c 

( 

c 

( 


OC 10 7 

2* 

00107 

2« 

0CI07 

2* 

OC 1 07 

2* 

00107 

2* 

00107 

2* 

OCIO 7 

2 * 

OCt t 0 

2* 

OCI 1 1 

2* 

00112 

2* 

OCt 1 3 

2* 

00 1 | 9 

2* 

OCI IS 

2 • 

00116 

J* 

CCI 1 7 

9 • 

00120 

S* 

001 21 

6* 

00123 

7* 

00129 

0* 

00 1 26 

9* 

001 JO 

10* 

00132 

II* 

001 JS 

1 2* 

00136 

13* 

00191 

19* 

00192 

IS* 

001 9S 

16* 

00 1 9 7 

17* 

0CIS2 

18* 

00IS9 

I9« 

00 1 S 7 

20* 

00169 

21* 

OC 1 66 

22* 

OCI 70 

23* 

00177 

29* 

00202 

2S« 

0021 1 

26* 

002|3 

2 7* 

0021S 

28* 

00229 

29* 

00227 

30* 

00236 

31 • 

00290 

32* 

00291 

33* 

00292 

39* 

00299 

JS* 

C02S2 

36* 

0 0 2 S S 

37* 

0 0 2 6 S 

38* 

C02 6 7 

39* 

00270 

90* 

00271 

9 I * 

00273 

92* 

00279 

93f 

0C27S 

99* 

00277 

9 S • 

00301 

96* 

OC 3q2 

97* 


• 1i**SM*X r *:T,.iW00 o » , S 7 OE V ( H4 XF £ T , H a APOP I , 

• NOn.OtFi.m''l"A<iriO) tBL3CKfUXrtO»*l ,Bl<("AAFl0.2» • 

• ST»»3lS ( NAAP3PI .oas.for-at.ma®, 

• SPTR |G , I * J.<P T S ,'4<WS,CLO« *a*po*,ha<POP) 

• • ni*<«k*3*»i . <i».< * '•4<rLo.*i*xPrt“» 

• ic«i N »c H ** T « s » 1 e*«* 1 ** "a*pop > i««xsii 

•.< U M| T 

integer varsiz 
I 9 T^ge* 

Rial hEanS 

INTEGER SPT4 IG.4L0CK «BUK ,STHBLS.^EAO«FETV£C t^LUNA^itfAS 
INTEGER' FDn-AT 
E ■« 0 

□ ME^SION IpLaCEINOPTS) 

|NT£GE« ^TS.cOL.OuT 
DIMENSION COLO. I 13) (OUM I 10) 

OaTa 9LA*<</» •/ 

CALL NT94NI7.I0I 

• RIT* <6.360> 

• RITE (6,H£a3) 

IF IKKT.LT.nI GO TO 10 
*R l T E 16.290KKT 
10 CONTINUE 

WRITE (6.2S0>tNCAT 
K N T • 0 'Vr 

03 20 J- I .NOFCO 

20 Kn T-KNT ♦ 0 L<« J.l )* bLF« J.2) 

• RITE <6.26n>KNT 
WRITE (6.270) 

00 30 J- 1 .LNCaT 

WRITE (6.280) J.STHBCSIJ) .HI J) 

JO CONTINUE 

• RITE ( 6 . 2 9 0 ) 

• RITE (6, 3 00» l6LANK.rETvECIJI.jp I . NOF EAT* 

00 90 Jp I .lncat 

•RItE l6.3lo)J,(HEANS(l,J).|Pl.NOrEATI . 

•9 CONTINUE 

•RITE (6.12n) 

• RITE (6.300) I BLANK ,FET VEC I J) ,JpI .NOFEAT I 
00 90 J« I .LNCAT 

• KITE (6.3ln)J»(STOEV(I.JI.lPt . nOFEAT » 

SO CONTINUE 

L* I 

JPtNC AT 

IF I J.GT.IS) jp|S 
60 • R I T E (6.390) (K.KPt.J) 

00 70 I ■ I .LNCAT 

70 ARItE (6,3S(ll I .ICLOi I .K) .KpL.JI 
IF (J.EQ.LNCATI GC TO 80 
L»L* I S 
JpJ* IS 

IF « J.GE *LNc At) wpLNCAT 
GO TO 63 
80 CONTINUE 

IF (KKT .E 3.- 1 I GO TO 90 
!FMODl<<f» *AP) •«E*0) r ETUHN 
90 CONTINUE 

OO 100 I • * • L^CAT 


PR1N0020 
PR I NOO Jo 
PRIN0090 
PR INOOSO 
PR I N0060 
PR I N0070 
PR IN 0060 
PR IN0090 
PR INOIOO 
PR I NO I 10 
PR I NO 1 20 
PR I NO | JO 
PRIN0190 
PR I NO 1 SO 
PRIN0I60 
PR I NO I 70 
PRIN0180 
PR I NO | 90 
PRIN0200 
PRIN0210 
PRIN0220 
PR I N02 JO 
PR I NO 7 9 0 
PRIN02S0 
PR I N0260 
PRIN0270 
PR I N0260 
PRIN0290 
PRIN0300 
PRINGJIO 
PR INOJ20 

PR I NO 3 90 
PRIN03S0 
PRIN0360 
PRIN0J7Q 


PR INCsOC 
PRIN09I0 
PR I N0920 
PRINOrJQ 

PH | NON 90 
PR I NQhBO 
PRIN0960 
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I 

t 

( 

c 

t 

( 

l 

t 

( 

l 


00 3qS 

Va* 

OC 3 | 0 

9 9* 

003|3 

sc* 

00 3 1 1 

SI* 

CC 3 l S 

S2- 

003| 7 

S3* 

00321 

S 9 • 

003 22 

ss* 

00323 

S6* 

0032** 

S 7 • 

0032S 

SB- 

00326 

S9- 

00331 

AO* 

00332 

61* 

00333 

62* 

003 is 

A3* 

OC 3 J S 

AN- 

003]6 

AS* 

00337 

66- 

00 3 s 2 

67- 

OC 3s 3 

68- 

003ns 

69- 

00 3sS 

70* 

0Q3s6 

71* 

00 3S0 

72* 

003S2 

73* 

00 3s 3 

79* 

003S6 

7S* 

00360 

76- 

00362 

77* 

00363 

78- 

00373 

79- 

00376 

80- 

0090S 

81* 

00 90 7 

82* 

009|0 

83* 

009 | 3 

89- 

00916 

8S* 

009| 7 

86* 

00921 

87* 

00923 

88* 

00929 

89* 

0092S 

90* 

00926 

91* 

00927 

92* 

00930 

93* 

00931 

99* 

00933 

9S- 

00939 

96- 

00936 

97* 

009RS 

98* 

OCRs 7 

9 V • 

C09S1 

ICO* 

OC 9 S 9 

ld- 

00962 

102* 

00969 

103- 

009 6 S 

109- 

0 C 9 6 6 

Vos* 


03 103 «*1 »O*t0 
10C N0LK(K*|1 a O 
IRC*l*0 

icc Ta, * 0PTS 

in t*o-ce-o> tcc*«**T* 

IF lioo.ca.cl GO TO no 

CAUL nTRA*M7»2»!CCT,IPLaCC.IST8T.22I 
I "EC ■ I 
lie JPTS-O 

|R C -I«C-I 

CALL SC T**R(» 1 66 .0 » 66 I 
00 200 I r uO- 1 ,N0Fu3 
L I NES-BIK ( IF LOt 1 1 
PT^.SuKI IPU0«2» 

I d-SLOC* C IF c O,S) 

IE -BLOC* I I F uO » S I 
|r»C>BLOC<( I F U 0 • A 1 
J«C 

120 oo no i - 1 e . ic. I nc 

J- J* 1 

COL I I »J)*1/ IOC 
COL 12, j I -HOC I I • I 001/10 
COUl,jl»NOo< I .101 
IF (J.EQ*llO> GO TO no 
133 CONTINUE 'v 

I HO LPTS-J 

IF (|FLO* m E.I) 6RITE «6,360» 

• RITE ( 6 » 2 2o I 
•HlTC <A.*EaO| 

J-PTS-L |NES 

• KITE »A*nO>FLO*AH I FLO » . J . I BLOC* C 1 FLO • * I • 1 • I • A » 
OC ISO 1-1.3 

ISO PR I T E I A.2lpl CC0L1 1 »*»* »J*l»LPTSl 

• RITE ( A • 22C I 
LINE-BLOC* ( I f LO , I I 
00 ISO l-l . lines 
00 I 70 J«l .PTs 
JPTS-JPTS* I 

IF [ JPTS.LE. ICCT) 60 TO IAO 
IF ( IRC .EQ. I 1 ICCT-KPTS 

CALL nTRANI7.2.ICCT,IPLACE.1STAT.22» 

IRC-IRC-I 
JPTS-I 

1 AO CONTINUE 

K-IPLACEI JPTSl 
NBLKtlFlD.Kl-NBLKIlFLO.Kl-l 
IF (J*6T.1I0> 60 TO 170 

OUT I JI«S*HBLS(*I 

170 CONTINUE 

• RITE I A » 2JC lL I *»E • * OUT I j» » J« I .LPTS » 

>80 LINE-BLOCM |FlO,3»*LINE 

• RITE ( A • 370 > 

DO I 9 0 lalalNCAT 

190 AR | T E I 6 . 38c >1 .STHBlSI I I »NbLK I lrLO# I I 

2 OC CL NT I NoE 

CALL SE THRU t 66 .9 • A2 » 

RETURN 

210 FOHRAT ( 9K . I 1 Oil) 


PR I NON 70 

PR 1 N0N80 

PRIN0N90 

PRInOSOO 

PRINCS10 

PR1N0S20 

PR I NOS 30 

PR InOSNO 

PRINOSSQ 

PR | nOSAO 

PR | f.OS 7o 

PRIN0S80 

PRIN0S90 

PRIN0600 

PR1N06I0 

PRIN0620 

PR1N0A30 — - 

PR|N06**0 

PRINOASO 

PRIN06A0 

PR I N0670 

PRIN0A80 

PR1N0A9O 

PR IN0700 

PR I NO 7 1 0 

PR1N0720 

PRIN0730 

PRIN07N0 

PR l NO 7 SO 

PR I N07A0 

PR I NO 7 70 

PRlN07a0 

PRIN0790 

PR1N0800 

PR 1 NOB 1 0 

PRIN0820 

PRIN0830 

PRlNOe^O 

PRINOBSO 

PRlNOflAO 

PRIN0870 

PR IN0880 

PRIN0890 

PRIN0900 

PRIN0910 

PRIN0920 

PR I NCR 30 

PR 1 N09N0 

PR I NO 9 SO 

PR I N09A0 

PRIN0970 

PR i N0980 

PR 1 N0990 

PR 1 N l 000 

pr jNimo 

PRIN1020 

PR I N | 030 

PRI MONO 
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00*67 

108* 

00970 

IC7* 

00R71 

108* 

00**72 

1 09* 

00R73 

1 10 * 

OON 7 H 

III* 

OORTS 

1 12 * 

00976 

113* 

00977 

1 l«»* 

ocsoo 

IIS- 

OOSOI 

118* 

00S02 

l 1 7* 

OOS02 

118* 

0CS02 

119* 

00S02 

120 * 

00*03 

121 * 

OOSOH 

122 * 

OOSOS 

123* 

00S08 

1 29* 

00S08 

1 2S • 

ooso; 

128* 

OOSlO 

127* 


220 FCRPATt/» 

2 )C FO«**ATf2I.lS*2X,llOAll 

2 10 F0*pAT«//* INTERMEDIATE PRINT OUT FOR I T E* A T I ON • , I S// » 

2S0 POR*AT|//* TOTAL NON0ER OP CLUSTERS »*,|3| 

260 PORHaTI/* ToTaL NUH 9 ER OP POINTS •*.I7» 

2 7 0 F0RnaT|//« CtUSTER SYMBOL POINTS |N CLUSTER*! 

280 PORxAT ( HI • I 2 *9> * « 1 • I OX * | 7 I 
29C r 0RMATl///IS«. , i E A«5*/l 

200 E0RMAT*22X»*f E UST£R'*^X.I2lAl**CH***I^»*** f IA^ 

3 1 0 PQR"*T I 5X » | 2 » 7* , I 2 I f7.? , I X ) ! 

320 PORma T < /// I OX . * STANDARD 3E V 1 A T | ONS • / I 

330 PORm» T-4//2X.A6.//* TOTal mONSER OP P0 1 NTS |N THIS F|ELU*.|7/ 

• • LINE *•!&•' ThROUSH* 

• tIS.* EVERT*. 13.* LINEISI San*»LE* . I *» . * THROUGH • £ Vt*<V • • 

• 13. • SANPLE«SI»///| 

3*tO F0 RhaTI//1S|.*01STaNcES BETWEEN CtUSTERS*//l*.*C*- u STER*,lSlBI 
350 FORMAT I 3X » I 2*SX , I SF8*2 ) 

360 PORMAT I INI I 

370 PORNAf I //2X , *P0 | NTS PER CLUSTER IN T M IS r | £L0 • / 3X • • CLyi t E m * • 

• SX . *5TNB0L • .S« . * POI NTS* / I 

380 PURHaT I 6X • I 7 . I OX • A I « 7X , | S I 

£N 0 


PRIMOSO 
PRINI060 
PRINI070 
PR InIOSO 
PR 1*10*0 
PRIM 100 
PR INI | IQ 
PR I n I I 20 
P R I N I l J 0 
PR I M I **0 
PR 1 ** I I SO 

PRINI |6Q 
PRlNl I 70 
P« I «l I 80 
PR|N| |90 


PR I N | 220 
PR INI 210 
PRINI 2*10 
PRINI 2S0 
PR I N | 280 


end op compilation; no diagnostics* 

print SYMBOLIC 

PRINT CODE RELOCATABLE 


29 

NO* 

73 

1 3: it so7 

0 

0 1 60 oOq 2 

1 9 

127 

29 

NOV 

73 

11:91107 

1 

01803389 

29 

1 





0 

01803919 

1 9 

70 
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IDCLETEO) 

(OElETeOi 


< 


9 ro«.« SETUP. SETUP 

uni vac 1108 fortran v exec ii level 2sa -ie«ecb le*el eI2oiooio*» 
This compilation «aS oo*e on 93 occ 7i at 12:0:07 


03 OEC 7 i 


subroutine setjp 


E4fRY POINT 33M77 


STORAGE USCO: COOEllI 301 SI I : )tri(]i 333201 : BLAN< c0* h 0N|2| 030330 


coupon b.ocns: 


0003 PASS 02SS7n 


EXTERNAL REFERENCES (BLOCK, na*E| 


OOON 

000s 
0006 
0007 
0010 
0011 
0012 
0013 
001 H 
-03 I B - 
0016 
0017 
0020 


FLTNUH 

NATCMR 

NUMBER 

EXIT 

ORMAVL 

ORHASG 

NTRAN 

NROUS 

N I 0 2 % 

NROUS 

N I 0 I S 

NCRR2S 

NERRJS 


STORAGE. ASSIGNMENT (BLOCK, type, relamvc location, Na«E» 


000 J 

0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0301 - 
0000 
0001 
0000 
0000 
0000 
0001 
0001 

0000 L 
0003 R 
0003 1 
OOON I 
0000 I 

0000 | 


00001 2 
000373 

0000 N 2 

030SI0 

00063s 

000722 

031107 

001 I N6 
00122S 
000711 
000 7 $6 
000303 
OOlOtB 
000 3 H 2 
000 N I 3 
OQOnSN 
001317 
000232 
00026b 
026S07 
007677 
000300 
000267 
000000 


IQt 
1 mOl 
1 76G 
2I0L 
230L 
26S L 
310L 
3 3 0L 
370L 
N N 1 6 
N63G 
N?OE 
S I 76 

»6or 

60 0 F 
630F 
6S1G 
70U 

asgokh 

CHNTHS 

OAS 

FLTNUM 

INVEC 


000» 

0001 

0001 

0001 

0001 

0001 

0001 

0001 

0001 

0001 

0001 

ono» 

0000 
0000 
00c 

0001 
0000 
uooo 

0000 I 
0003 
0003 I 
0003 1 
0003 
0000 I 


000312 

030*06 

OOON3S 

000123 

003631 

000776 

030366 

000*12 7 
03127S 
000 7 1 2 
03076S 
030 I 60 
OOOjl 7 
0303SI 

000*»3o 

031271 
OOON7N 
00361 3 
non 163 
037706 
0030 I 6 
C37 700 
02ASI0 
0Q026S 


loot 

I SOL 
l SOL 
2| NG 
23SL 
28 OL 
31 1G 
3366 
NOOL 
N N 36 
N 706 

sol 

S20F 

S70F 

6 10F 

6326 

660F 

733F 

blank 

cld 

U A T t 
FORMAT 
ICM* in 
IPASS 


000322 

000 n 2 I 
OOON N N 
000S3N 
00 0 6 N 3 
001031 
OOONol 
001 I6S 
001312 
001370 
00 I N 3 6 

00031 3 

00032* 

000366 

001 2n2 
OOC N 60 
00050* 
000 6 7 N 
I 00730S 
I 000 1 6 2 
R 0001 1 6 
I 000000 
1 0 2 65t]4 

1 00027N 


1 lot 

1 6 0 L 
l*OL 
220L 
2N0L 
2»0L 
3206 
3N0L 
N23l 
nnSl 

N 7 Ol 

SOOF 

5 3 OF 
SBop 

6 I 3 u 
6 N OF 

6 7 OF 

7 1 OF 

BLK 

COLE 

OL*lN 

HEAD 

1CHN 

1PTS 


OOOl 
OCO I 
0001 
0001 
-0001 - 
0001 
0001 
0001 
0001 
0001 
0001 
OOOl 
0000 
0000 
0000 
OOOl 
0000 
ooj; 
0003 | 

0000 | 

0003 1 
0003 1 
0000 | 
0003 


00033N 

000027 

00 0 N 6 N 
000562 
0004S6 
000130 

001 126 
00120*1 
0013NS 
0007N6 
OOl nns 
ootoos 
OOO33 O 
OOJNOO 
000NN2 
001307 
OOOSn6 
00&2S6 
0Q6ISS 
000 I 6 N 
000 US 3 
000002 
000271 
007703 


I2 0 t 

1676 

200L 

22S U 

2S0L 

30L 

320t 

3S0L 

** 3Sl 

NSSG 

N7S L 

S006 

SNOF 

S?OF 

62QF 

6H2G 

6 Bop 

BLOCK 

COL 

FETVEC 
H£0 1 
1 C N T 
IRO 


OOOl 

OOOl 

OOOl 

OOOl 

OOOl 

OOOl 

0001 

OOOl 

OOOl 

OOOl 

0000 
0000 
0000 

0001 
OOOl 
0000 
0000 
OOUI 
0000 1 
0003 1 
0003 I 
0003 I 
0000 
0003 I 


000360 
OOON JN 
OOOOSI 
OOOISN 
000666 
001070 
000 * 11*1 
001210 
00I3S7 
001*116 
000301 
000 3 I S 
000337 
00020N 
00I2S2 
0Q0N70 
OOOSSN 
000302 
000026 
C00037 
006UI I 
OOOU23 
000655 

OOOl I I 


l3 0 t 
IfOL 
20*6 
22 7 * 
240L 
300L 
J27g 
340L 
nnol 
N60l 
NBOF 
SIOF 
&SCF 
4 CL 

62U 
650 F 
6*QF 

Rol 

CARO 
CQHnT 
F LON AH 
h£02 

|NJPS 
I S TCP 
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• ' — m — — 


i 


( 

0900 

1 

000275 

|tOT 

0000 


0903 

r 

924573 

<ONJ T 

3003 



0903 

R 

933129 

"CANS 

0000 


( 

0003 

I 

933352 

NO^iAT 

3003 


0006 

1 

99030C 

.u^atR 

0909 



00" 3 

I 

92*59" 

PUN^H 

000* 

R 


0903 

« 

0201 1 5 

STCflu* 

5003 

1 


900273 

J 

0000 

1 

C09273 

A 

0391 12 

LNC AT 

9900 

1 

000272 

H 

0901 7" 

HT ABLE 

0303 


0H6 1 2 

H 

53*010 

NO F LD 

00C3 


9077 0 5 

RiOPTS 

9 90 1 7 * 

NU"VE C 

990* 

I 

009009 

NX T ch# 

C90I 1 7 

S C P 

9003 

1 

009203 

5"{»LS 

097*15 

STM 8U s 

3993 

1 

22*572 

v**«5|2 


• • 


0003 


00770" 

APTS 

0003 

l 

0001 l" 

am* 

0003 

1 

007701 

HAP 

0003 

I 

024505 

maiclS 

0003 


0 l "4 7 " 

*SLA 

0003 

1 

000U3 

hNlA 

0000 

! 

00030C 

NSTaT 

OOOC 

1 

000 U - 

nT ABLE 

0000 

1 

000277 

N 1 7*2 

0000 

I 

00027* 

N*32 

0003 

1 

00 7 7q2 

5PT«U 

0003 


00305* 

STot" 


( 


f 


I 


< 


( 


l 


( 


l 

( 

( 


( 



( 

( 

( 

( 

( 

C 

( 


OOIOI 

l • 


SutJROuTjNL Setup 

SE TUOOOO 

OciOi 

2 * 

w • • 


• at 1 U33 1 0 

05101 

3* 

C 


SC TU0020 

05101 

*• 

c 

THE PURPOSE OF SUBROUTINE SETUP |S TO READ AND ANALYZE ALl CA*0 

SE TUOO 30 

00101 

5* 

c 

INPUT TO the PR06" A* » INITIALIZE OLFaU'.T Options. ANO ASSIGN drum 

5E T U00 "0 

00101 

6* 

c 

STONaGE IT N£ E OE 3 

5ETU0C5O 

00 1 0 1 

7 • 

c 


SETU0C69 

00 1 0 1 

ft • 

c # • 


• it ' UOO fO 

00101 

9« 

c 


SETU0080 

00103 

10* 


INCLUDE COmmOn.lIST 

SETU05R0 

00 1 0" 

19* 


°aRaNETEH "a<P0 p *S0. m AXFET»33 


00105 

10* 


PANAHfTER M A X 0 1 N*2S000 


00106 

19* 


PAHANETER HAXFL0-190 


00107 

to* 


C OriHON/ PASS/HE AO ( *2 | ,NOFE AT , f £ T vEC 1 " A*F£ T 1 , 1 STOP , LNC A T , N« j * # aRn , 


00107 

10* 


• stohax.olnin.sep.heansihaxfet.naxpcfi.sToevinaxfet.haapopi, 


00107 

1 0 # 


• N0rL0.FL0NA«1PA»FL0» . »L 0c A ( M* Xf LO . 6 ) , SL* l H A X f L 0 . 2 > . 

- 

00107 

10* 


• STHBLS(MAXPOP) .das, format .*aP. 


00107 

19* 


• SPTRIG, 1R9.APTS.n0PTS,cL01*»«PoP."aXP9PI 


00107 

10« 


•• N(*aXP0P1 , <8LA1HAXFL0.PAXP3P» 


00107 

13* 


• ,Pu*CN,HAXCLS, ICMN.CHNfHS. 1 CHA I N« HAXPOP > . VARsIZ 

. . . 

00107 

1 3 • 


• .A UNI T 


001 10 

10* 


integer varsiz 


001 1 1 

10* 


INTEGER *UNCH 


001 12 

10" 


real nE anS 

, _ . 4 

00113 

10* 


INTEGER SPTr IG. SLOCK .BLA .STNBLS.MC AO.FETVEC.F tONAH.OAS 


001 I * 

I0» 


INTEGER FORpAT 

, _ 

001 15 

10* 


ENO 


00116 

1 1 • 


DIMENSION 1 n VEC l 22 1 .CARD 1621 .NUHVECI 301 »0 aTEI2I 


001 1 7 

12* 


DIMENSION Ht 01 1101 .HE 021 10 ) , CO*nT< to) 

SETUOI 10 

00120 

13* 


EUUIVaLENCE IhlOlllli^ADIlM. 1 D A T£ 1 1 1 . HE AO ( 1 5 )) * 

SETUOI 20 

00120 

1 "• 


• (HL02I 1 1 |HEAD(20I 1 . (COHnTIII .HEA0I32M 

SETUOI 30 

00121 

15* 


DATA INVEC/fFEAT UR • » * 1 STOP • , »LNCAT» , *NN|N» , » A Rn • . • S TOHAX • , • OL* 1 ••• 

»SE TUOl "0 

00121 

16* 


• * SE P • ,*FORHaT* , *HED l * t • H£02 ' » * 9 A T £ • .••END** . *»£N0 «* , »COhH£n» , 

SE T UO I 50 

00121 

17* 


• ‘STHdOL* ••OASUNI* a TMAP* , • PUNCH* . * « A XCLS * . • C M A 1 N • » * £ R 1 PS • / 


00123 

1 •• 


INTEGER c00£,CAR9,0aTE,hEDI ,H£ 02.aLARA.cOL,COHNT .FLTNUH 

SETUOI 70 

0012" 

IT* 


DIMENSION NTAB1EI7I .MTA8LE17I 

SETUOtSO 

00125 

20* 


integer s*bls 

SET UO l TO 

00126 

21* 


DIMENSION SMBLSI50I 

SET U0200 

00126 

22* 

c* 


SETU02IO 

00126 

23* 

c* 

DEFAULT VALUES FOR INPUT PARAMETERS 

SE T U02 20 

0012* 

2"* 

c* 


SE 7UC2-0 

00127 

25* 


dat« puncm/o/ 

SE Tu02*0 

00131 

26* 


Oat A 0LMIN/3.2/ , FORMAT /2/ .STDMAX/R.5/ »HaP/20/ 


00136 

27* 


OATA 1 STOP/ | 0/ »NMf N/30/ .AAN/I/ 

SETU0260 

00 1 "2 

28* 


OATA MA KCLS/MaXPOP/ 

SC ILQ270 

001*" 

2 ? • 


OATA SMBlS/* 1 ».*2'»*3•,•R•,•5 , .•6•,•7•.•8*,•♦•,•A•. , B•,•C•,•0• . * E • SE T u32 80 

00 1 ** 

30* 


• • »F * » *G» » •J»,»A»,*l»,»M«,«N* i *0».»P»,*8*,*R*.»S*»*T»,*U*. 

S£ T UO 2 V 0 
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1 


00166 

3 ) • 


• 


00166 

32* 


• 

*tl**i*»*»* */ 

00)66 

33* 



0 ftT 6 8 La 6 </ • •/ 

OOISO 

36* 



OaT* !P*5S/?'. U h N/0/ 

00IS3 

3S • 



LOGICAL A S SO® N 

co i s* 

36* 



06TA ASS036/.fAL5Ca/ 

oois* 

37* 



1 P A ^5 • ) P A s S ♦ 1 

00 1 S 7 

30* 



NOr CO* 1 

Oul 6 C 

39* 



• RITE <6,*£a0| 

03)62 

63* 



: t£ 1 a , 6io » 

00)66 

6 I • 


l J 

9COtS.603,£No**7SlcO3C .CARO 

00) 73 

* 2 * 



• -MT* ( 6.SS0IC03C ,C 400 

00202 

63* 



C0„*3 

00203 

** • 



OJ 20 1*1 .22 . 

00206 

*S* 


20 

IFICOOE a£ 6 . IMVEC* I » > SO TO I 3q • SO • 63 • 70 . 80 • 90 . ) 00 • ) iOa 

00206 

*6* 


a 

! 63, 1 SC . 760 . ) 60* ) 60. 1 7 o, 200 . 2 t 0 . 220 . 230 . 23 S. 22 S) • 1 

002 | I 

* 7 • 



**)TC 16.69o>CODE,CaRD 

OC 2 70 

*a* 



60 TO 10 

002^0 

*»• 

C* 



00220 

so* 

C* 


feature CA9a 

00220 

SI* 

c* 



0022) 

S2* 


30 

J > NlTCHR < CARO , COL » 

00222 

S3* 



If <J.£0.9LANK> 60 TO 10 

00726 

S6 • 



COw*COL-t 

0022S 

ss* 



N0r'EAT*NU6 6ER(CARD.tOl.*UHVEc 1 

00226 

S6 • 



00 60 )•) .no f eat 

0023 1 

S 7 • 


60 

FE7yCC( 1 I *N j6 VEC ) f » 

00233 

SI* 



60 TO 10 

00233 

S 9 • 

c* 



00233 

60* 

c* 


1ST 06 CARO i*AXIMU" NUMBER Of ITERATIONS) 

00233 

A)* 

c* 



00236 

62* 


SO 

J • NXTCHR1 c ARO ,COt I 

0023S 

63* 



IF « JaCOaSLA •«» 60 TO 10 

00237 

6** 



C0w*C0l-l 

002*0 

AS* 



J • NU"3CRICARD,C0L.NUHVECI 

002*1 

66* 



!STO*» • NJMvCCni 

002*2 

67* 



60 TO 10 

002*2 

6 % • 

c* 



002*2 

69* 

c* 


l*cat carj imuhber of initial clusters o» categories) 

002*2 

70* 

c* 



002*3 

71* 


*0 

J • NXTCHRCCARO.COL) 

002*6 

72* 



If ( JaEQ.SlANKI 60 TO 10 

002*6 

73* 



COw • COL-1 

007* ; 

76* 



J • NuH8CRICARD,C0L,NUHvECI 

002SO 

7S* 



LNC AT * NUHvCClII 

002S ) 

76* 



IPASS-1 

002S2 

77* 



60 TO 10 

002S2 

70* 

c* 


WHIM CARO (MINIMUM NUMBER Of PO|NTS PER ClUSTeRI 

002S2 

79* 

c* 


002S2 

80* 

c* 



002S3 .. 

. 8)* 


70 

J • NATCMRICARO.COL ) 

002S6 

32* 



If ( JaCGaBLANO 60 TO 10 

Q02S6 

8 )* 



COL • COL-1 

002S7 

8** 



J • NUNBERICARO .COL .NUMVCC 1 

00260 

8 S* 



NMIN • NUN YE C ( 1 ) 

0026) 

06* 



60 TO 10 

002a) 

87* 

c* 


... . . 

00261 

80* 

c* 


KRN CA*0 (NUMBER OP ITERATIONS PER FULL OUTPUT) 


, *6» . *?SETU0300 
S£TU0310 
SC T UO 320 


SETU0330 
SETUC360 
5£ TU03S0 

SC T UO 3 7 Q 
SLTU03b0 


SETu0*20 
SC T U06 30 
SETU0660 

setuomso 

SETuO**63 
SC T UO** 7 0 
SCTUOhSO 
S£Tup*90 
SCTUOSOO 
SCTuOSIO 
SCTU0S20 
SC TUOSiO 
SCTUOSIO 
SETuOSSO 
SCTU0S6Q 
SC T UPS 7 0 
S£ T UOSSO 
SCTU0S90 
SCTUO^CO 
SC T UO A I 0 
SCTU0620 
SC T UO A 30 
SC T U04 **0 
SCTU0tS0 
SC T U06*3 
SETU0S70 
SETuOaSO 
SCTUOa»0 
SC T UO 7 00 

iE T UO 7 I 0 
SC T uO 7 20 
SITU0720 
SCTU07*»0 
SCTU07S0 
S£ T UO 7 60 
SCTU0770 
SET UO 7 80 
SITU07V0 

scrunaoo 

scTuoaio 

SCTUO02O 
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002*1 

89 * 

C* 


00262 

93 * 

80 

J • NXTCMfHc*Rl) ( COL » 

00263 

91 * 


If U.CQ.BtaWK) 60 TO 10 

0026 S 

92 * 


cot ■ COt -1 

002*6 

93 # 


j • nuHacoicARO.coL.Nunvcci 

002*7 

9 H» 


K»H • 1 1 | 

00270 

9 S* 


6 0 TO »0 

00270 

90 * 

c* 

**„«,* C ,«D ''h'IHI'K SI <lUSt t *. 

002/0 

97 * 

C* 

00270 

98 * 

C* 


CC 2 7 l 

99 * 

90 

J « r L TN' jM (CAPDtCQL « S TOMA X til 

0 C 277 

100 * 


60 TO 10 

00272 

101 • 

C* 

OlH|H CAPO | *f».| «U« DISTANCE PCT^CCM CLUSTER N(| 6 SI 

00272 

102 * 

c* 

00272 

103 * 

c* 


0 C 273 

104 * 

100 

J • f LTNUM|c/ 80 .COt ,OLM|N , 11 

00279 

IOS* 


GO TC 10 

00274 

106 * 

c* 

• 

00279 

107 * 

c* 

stp lard imstamcc r ok splitting) 

00774 

IOC* 

c* 


002 /S 

109 * 

lie 

J ■ rtTNUMlC'ftO.COL .SEP, | 1 

OC 2 7 6 

110 * 


SP T 8 | 0“ 1 

0027 ? 

III* 


60 TO 10 

00277 

112 * 

c* 


00277 

113 * 

c» 

Fohmat capo 

00277 

1 | 4 * 

c* 


00300 

l IS* 

120 

J*NKTCHPlCA 8 C,C 0 t ) 

00301 

1 16 * 


ll U.CC.BLaMO GO to 10 

00303 

1 1 7 * 


COL*C 0 l-l 

00304 

1 la* 


J»NIJP 8 CP(CArC ,CCL.«U« 4 CC ) 

0030 S 

119 * 


FORMAT* NLMVEC 1 1 1 

00306 

120 * 


GO TO 10 

00306 

121 • 

c* 

— - 

00306 

122 * 

c* 

HtU 1 CAPO 

00306 

123 * 

t* 

— - • 

00307 

124 * 

130 

RC AO C 30 • S 00 ) MCD 1 

003 |S 

12 S* 


Gt TO 1 C • 

00 3 | S 

126 * 

c* 


C 03 |S 

127 * 

c* 

ML 02 .CAP 0 

003 1 S 

1 28 * 

c* 


00316 

1 29 * 

140 

READ I 3 C.SOo>mCP 2 

00324 

130 * 


60 TO 10 

00324 

131 * 

t» 


00324 

132 * 

c* 

DATE CARD 

00324 

1 33 * 

c* 


0032 S 

1 34 * 

ISO 

P t A 0 ( 30 « SQg > 0 A T C 

00333 

13 S* 


60 TO |0 

00333 

136 * 

c* 


00333 

137 * 

c* 

COMMENT CAPO 

00333 

138 * 

c* 


003 34 

139 * 

160 

Rt AD 1 30 »SO 0 *C 0 MNT 

00342 

1 40 * 


60 TO 1 C 

003 h 2 

141 * 

c* 


00 3 h 2 

142 * 

c* 

symbols capo 

003 n 2 

|4 3 * 

c* 


00343 

144 * 

170 

I LNT *0 

00 344 

14 S* 

180 

ICNT-lCNT ♦ l 

003 nS 

l 46 * 


IF 1 IcNT.UT.MaXPOP) 60 TO 10 


St T uO 8 30 

serooeto 
st Tuoesc 

SCT 0 O 86 O 
SC T UOg 70 
s t Tuoabo 
S f TO0fl»O 
SeTUO^CO 
s e tuo91o 

SETu 0920 
SClUO'JG 
SC Tu09*0 
SC IU09S0 
St T U09 60 
St TUG9 70 
SCTWOV^O 
S£ T U09 V C 
SCTUIOOO 
StTuICIO 
Sf TUI020 
SCTuiQiO 
SETUIPHO 
SC T 0 I OSO 
SCTU»040 
St T U | G 70 
St T U 1080 
SETUIC90 
StTU! IOC 
Sf TUI I 10 
SCTUI |20 
SCTut I 30 
StlUl 190 
SCTUI JSO 
SCTUI | 60 
SCTUI I ;o 
SCTUI |«0 
SCTUI I 9t) 
SET l 1 1200 
SETUI210 
SC I U I 220 
SCTUI 7 JC 
SETU12H3 
SETU12S0 
SC T U | 2*0 
St Tu I 2 70 
SCTUI 2«0 
SCTU129Q 
SC TU | 300 
SCTu 1 110 
SC T U 1 320 
SC TUI 330 
SC T U | 3 90 
SCTUI ISO 
SETui 360 
SCTUI 370 
SCTUI mo 
SC Tu l 390 
SCTUI nOO 


( 


t 


0039 7 

19 7* 

190 

H*;.6TCM8 (CA81 ,COL » 

00**0 

1 98* 


17 IH.CC.RLaSH 60 TO ( g 

00JS2 

l 99* 


IT C P*£G» * *♦ 1 6C TO 1*0 

00JS9 

ISO* 


s»H b ts« ir NT »•» 

OOJSS 

151 • 


50 TC IAP 

003SS 

IS7* 

C* 

D aSL'N | T fAHp ( UN 1 T 0». fthICH OAS r A AC IS T C 8E CREaTCDI 

OOJSS 

1ST* 

C* 

OOJSS 

IS*«* 

c* 


0CJS6 

ISS* 

200 

0«N|TCH6 (CAHC-.COI 1 

00JS7 

ISo* 


If 1 J*CG*bt a»<k I CO TO 10 

00 j 6 1 

1 57* 


COl-COL- 1 

00362 

1ST* 


jA.*.u»iec9tc aru.col ,nu«wcci 

003*J 

IS?* 


0 A >«UUH</CC 1 1 * 

00 JfcH 

160* 


uo TO 10 

00 J6H 

16 1* 

C* 

HAP CA*0 l\U*BfR Of ITERATIONS TO OUTPUT HAP) 

00 J*9 

162* 

C* 

00 3*9 

I6T* 

c* 

* 

00 J*s 

169* 

210 

J-N*TCHRICAaO.(OL » 

00 366 

165* 


If 1 J.EO. OLA*!* ) GO TO 10 

00370 

166* 


Col-COL-I 

0037 1 

167* 


j6.9UH6tRICA«r,C0L .NU^VCC* 

00372 

168* 


HaPsNuHvCC f t 1 

00373 

169* 


60 TO 10 

00373 

wo- 

C« 


00373 

rn • 

C* 

PUNCH CARO |PUNCH SJ A T 1ST ICS ON CARD5I 

003 ; j 

172* 

c* 


00379 

173* 

220 

Punch. j 

0GJ7S 

1 79* 


J-NXTCHHtCARO.tOLI 

00376 

1 7S* 


If ( J,C8.9LA'<K 1 CO TO IQ 

00900 

176* 


COL* COL-1 

OO^OI 

177* 


J-NUH0CRlCAj»O,COL,NUHVEC » 

00902 

l 78* 


punch-nuhvcc < 1 > 

00903 

1 79* 


60 ro 10 

00903 

160* 

C 

CHIPS CAR3 1 UNIT TO USE RHE N CREATING A TAPE ) 

0090J 

181* 

c 

00903 

182* 

c 

• 

00909 

183* 

225 

J-NaTCmrI Car3,C0L > 

00 9 05 

189* 


If (J .eo. blank) go to to 

00907 

18S* 


CUL ■ COL • t 

00910 

186* 


j • nuhsericaro.col.nuhvcci 

009| I 

187* 


KUnW a NUHvCC(I) 

00911 

188* 

C* 


009 1 l 

189* 

C* 

Ha ACL S CARO IMAXplU* NUMBER Of CLUSTERS* 

0091 1 

190* 

c* 


00 9 I 2 

191 • 

230 

J.NATCHRICArC.COL 1 

00913 

192* 


If IJ.E9*3 LaN<I 60 TO 10 

00 9 | 5 

I9J* 


COL-COL-I 

00916 

199* 


J»NUHflCR(CARO,COL .NtjHVEC* 

009 , 7 

1 9S* 


MAXCLS • NUNV e CI 1 » 

00920 

196* 


GO TO 10 

00970 

197* 

C* 

CHAIN CAR.) ICHAIN CLUSTERS »HJCm *RC OLHU UN|TS aP*RT| 

00920 

1 78 • 

C* 

0092 1 

199* 

23S 

| C H 9 ■ 1 

00922 

200* 


J-f lTNUH(C8RO,COL,CHNThS, l » 

00923 

231 • 


63 T 3 10 

009 2 3 
00923 

202* 

203* 

C* 

c* 

•CNO* CARO |If TM£ NUMhC*? OF ORIGINAL CLUSTERS |S GRCaTC* 

00923 

209* 

c* 

rEao initial heansi 


StTU JHIO 
S£Tu,*»^ 0 
S£Tu l OC 
S£lU|990 
SCTUI9S0 
SCTUI t*C 
S[Tu|s;o 
S£ TUI 9«!0 
SC Tu 1 990 
S£ TU ISOO 
SETulSlO 
SETUIS20 
St TUIS30 
SE T U l S *♦ 0 
SFTUISSO 
Sf TUIS6C 
SEtUlS/O 
SCTulStfO 

S£Tui *,90 

SC TU|*00 
SC T u I A 1 0 
SCTUI620 
S£ T u i 6 JO 
StTUl 6H0 
SCTUIaSO 
SC T U l a 60 
SC T Ui 6 7 0 
SCTUI6B0 
SC T U I 6 90 
SCTUI 700 
SCTU| 710 
SCTUI 720 
SC T u I 7 JO 


SC TU 1 790 
SCTUI7S0 
S E T U l 7 60 
SCTUI 770 
SCTUI 7t0 
SC TU I 790 
SETuieOO 
S£ TU I 9 I 0 
S £ T u I 8 2 0 


SC Tu I 8 JO 
THAN 0N£SETu|g90 
SCTUI ASO 


5-78 


( 







0012 3 

205* 

C* 


3E lUl 860 

00123 

206* 

c • 


S€ TU 1 8 70 

00121 

207* 

290 

IF ( NOF C A T • &? . 0 ) GO TO 250 

SETUI 880 

00126 

2 oe» 


«81T£ UtS6Q> 

SE TU 1 090 

00130 

209* 


ca-l e* 1 r 

. S£TuI900 

00131 

210* 

250 

IF UlC6 T *5C«2> G7 t0 2 * p 

5e T U I 9 1 0 

00133 

2 1 1 • 


L%C«T»I 

SETOI 920 

00131 

212* 


60 TO 280 

>C To l 930 

00 1 3 ^ 

213* 

2*0 

{*' I*** 5 ’-* 1 * ' T0 

RtO'".Sl3»( , 9£ANSCj.K». J« 1 .NOFf »T» . K • 1 ,lNC* T 1 


OC132 

2H* 



00150 

2 1 5* 

265 

ca.4i j*,ue 


00151 

216* 


*?ITE I6.66Q) 

SE T 0 1 950 

0Q1S3 

217* 


• k 1T£ (6,610» f .F£ rvtC« 1 * . !•« * NOF£ A T 1 

SETUI 960 

00i*2 

2 1 8 • 


03 270 J« 1 

SE T u 1 9 70 

0d*i 

219* 

270 

• KITE ( « »*50 1 J* 1 I • J ) • 1 • NOF 1 6 T 1 

SETui 980 

0016S 

220* 

C* 


SETUI9V0 

C0i*5 

221* 

c* 

»CaD IN FlE L 3 IDENTIFIERS 

5E T U 2000 

001*5 

222* 

c* 


&ETU2010 

00175 

22 J« 

280 

HEAD <5.i30|CoOC»CarO 

SETU2020 

00501 

221* 


If « c OCC *£3 • * * • 60 TO 3*0 

S£ TU2030 

00506 

225* 


lr* (NCr i.O'tE'1»TFl.ol 60 TO 2*0 

5ETU2010 

005|0 

226* 


• KITE (6. Sir)) 

SE TU2PS0 

005 j 2 

22 T 


CALL E*I t 

5F TU20*0 

005 | 3 

228* 

290 

CONTINUE 

SE TU2070 

005 1 1 

2 2 9* 


KlaO ( 30. 52n»F LON *>11 NOf tO » • ( BL OCK < NOF LO , J ) . J*l .6» 

5ETU20M0 

005 | 1 

2 30* 

C* 


SE TU2090 

005|1 

23 1 • 

c* 

CfcNO* CHECKING F OH INPUT FIELDS 

SFTU2I0O 

005| 1 

232* 

c* 


SE TU2| 10 

00523 

233* 


IF ( 1 SLOCK 1 i.OrtO . 2 * - BLOCK ( NOFL D , l 1 1 ♦ 6E • 0 * GO T 0 300 

SE TU2| 20 

00525 

231* 


• KITE 1 * ,57p I nOFLo. BLOCK INOF LO. 1 • . BtOc< « N OFLO. 2 1 

SETU2I JO 

00532 

235* 


c»ll e«it 

SETU2I 10 

00533 

2 36* 

300 

IF IBLOCKtNpFtO, 1 » .Gt. 1 1 GO TO HO 

SETU21S0 

00535 

237* 


• HITE l6»58n»N0Ft0»Bl-0cKCN0F|.0 . 1 1 

Sf TU2I60 

0051 1 

2 31* 


CALL (AIT 

SETU21 70 

00512 

239* 

310 

If (BLOCK ( NaFtO ,3 ) .r,F . 1 I GO TO 120 

SETu2t 80 

00511 

210* 


• RITE l6.59o» , l0ri0.BL0CK»N0FtP.3» * 

SLTU2I 90 

0055U 

211 • 


CAlL e a 1 t 

SETU2200 

oossi 

212* 

320 

IF ( (BL0CK<N0FL0t5>-blOCK (NOFlO.ll * .6E»Ql t»0 TU 330 

SETU2210 

005S3 

213* 


• WITH l 6 ,6 On» NOFLO .MLOcK ( r.OFLO.i > .BLOCK I N 0 F LO.SI 

SETU2220 

00560 

2*1* 


Call fait 

SETU2230 

00561 

295* 

330 

IF (BLOCK* Njl Loti) .fit • | I GO TO *9C 

SETU2210 

00563 

2 16» 


HR 1 Tf ( 6 ,A 1 0 ’ NOFLU. BLOCK ( NOFtO.9 » 

SETU27S0 

005 6 7 

2 97* 


CALL E A 1 T 

SETO22A0 

00570 

298" 

3iO 

IF (BLOCK « NOTLO .*) »GE • 1 1 GO TO jSC 

SETU2270 

00572 

219» 


AM] Tf (6.o2f)‘ '•O’ L 0 • BC 0( k 1 NOFLU. A > 

SE T u 2 2*0 

00576 

250 • 


CALL E * 1 T 

SETU2290 

00577 

251* 

350 

coi.T inut 

SE IU2300 

00*00 

252* 


N0» tO ■ NOf td« 1 

SETU2310 

00*01 

253* 


GO TO 2*3 

SE I 02320 

00*01 

259* 

C* 


SE T 0 2 3 30 

C0*0l 

255* 

c* 

SLND C A WO 

SE T 02 390 

00*0 1 

256* 

c* 


SETU23S0 

00*02 

25 7* 

360 

N5»l> » NOFl*'-I 

SLTU2360 

00*03 

258* 


If 1 NOF LC * 6T • 3 I GO TO 370 

SE TU2370 

00*05 

259* 


•n.TE (*.53 o> 

5ETU2380 

00*07 

2*0* 


CAlL f A I T 

SET023VO 

03*10 

2*1* 

370 

• HITE ( 6 * A 7o * 

SE TO2900 

00*12 

262* 

C 

00 3B0 1-1 .NOFLO 

St T 0 2i 1 0 


5-79 




00* 1 s 

2*3* 


*9iT£ 1 * .6 031 1 •*’tOKA»* 1 1 1 , 1 8L0CM 1 , J» . J* 1 •£ » 

SETU292C 

0062* 

269* 

380 

CCMT 1 *i Ut 

S£ T U2930 

00*2S 

2*** 

C* 


SETU2990 

0342s 

2*6* 

c* 


SETu299| 

0C625 

2*7* 

c» 

ARE DE F A« L T S*H8r»i.S *0 Bf cSESV 

SET32992 

00*2% 

2*?* 

c* 


SE Tu2* 9 3 

ec**7 

2*9* 


ir i icnt.g: .** i so to *oo 

SE T U2 * 9 •* 

00*3 l 

270* 


i>0 390 !9i.-**ClS 

S£ TU299S 

OC* 3* 

27 1 • 

39C 

SVHgi si 1 )*S*f iSt I ) 

SE T 02 s SO 

00*36 

272* 


GC Tc *20 

S£ T W29 60 

00*37 

273* 

TO 

!r U(*.r.GE.* i *0.5 1 50 re *«2r 

SC TU2970 

00*9 l 

2 7 9* 


Do *:e i « i c % 9 , m » x c. c s 

SCTU2980 

CC6*9 

275* 

9|C 

SThfLSl I 1-SMfrLSi I » 

SETU2990 

006*** 

2 7 * • 

•*20 

com jnoc 

SET U2*C0 

0 06*16 

27 7« 

C • 


SE TU2* 1 0 

00** 6 

27ft* 

c« 

assign 09o>* storage if nEECEC 

5ETU2S20 

006** 

279* 

c* 


SETU2S30 

00**7 

2»0* 


IPTS-0 

5ETU2S90 

03*50 

28 1 • 


DO *30 | • ! .sCFLC 

SE T U2SS0 

00**3 

282* 


IPTS-IPTS*! Il LOCK ( 1 ,2 1-Bi.OCK ( 1 » 1 > )/BLOCr< ! ,3) * 1) 

• SE T 02*60 

C06*3 

283* 


9 1 (BLOCK 1 1 ,*>-BlOC*< I .91 l/»L0CK< I .*» 9 l> 

SE T U2* 70 

00**** 

28*** 

*30 

CONTI NUE 

SETU2S80 

006*6 

285* 


ITOT ■ IPTS**0EEAT 

SETU2S90 

00**7 

286* 


IF ( A5GDPP*U0 TO *3* 


00*61 

287* 


CmLL CRHAVLIN932. *1^7821 

SETU2600 

00*62 

288* 

••3S 

COST INUE 


00*63 

289* 


11 (IT0T.6T.N%32) CC TO 9*0 

SETU2420 

0 C * 6 * 

2VQ* 


IF « 1 *TS.lE.i 1 782 ) 60 TO *••* 


006*7 

29|* 

9*0 

AN 1 T| 1 6 ,69o>».*J2 .N| 782 

SETU2660 

00*73 

292* 


CALI EXIT 

SE T 026 70 

00*7*1 

293* 

9** 

IF 1 ASGOnni&o T0 970 


00*76 

291* 


A SCOBN* • TRUE • 


00*77 

29** 


IT0T*N932 


00700 

29 6 * 

*•*0 

Call or**asgi % . i tot .mable .nstat i 

SETU2680 

CO 7 0 1 

297» 


IF (NSTAT.EQ.0l GO TO 960 

SETUlAfO 

00703 

29** 


• RlTf I6.700JNSTAT 

SE TU2700 

00706 

299* 


CALL EXIT 

SCTU27I0 

00707 

300* 

*60 

Call ORHASGI 7,N| 782.HTABLC .NSTAT) 


C07 |0 

301* 


IF ( N 5 T a T * £ G * C ) CO TO 970 

SCTU2730 

00 7 | 2 

302* 


ftftlTj l6»7|c!N*TAT 

S£ T 02 7 90 

007 |* 

303* 


CALL EXIT 

SE T 02 7*0 

OC 7 | 6 

309* 

970 

CONTI NUE 

SET U2 760 

007 | * 

30** 

c* 


SETU2770 

CO 7 l 7 

30*9 


CALL NTRAN(*,|0) 


007J7 

307* 

c* 

Rt TURN TO Process this SET OF Da t A 


00 7 20 

33o* 


Rt T URN 

SETU2760 

CC 7 20 

309 • 

C • 


SETU2790 

00 720 

3109 

c* 

FINISHED. RC-INC output Das TAPE and EXIT 


00721 

3 1 l • 

97* 

IFlOAS.CT.OlCALL mTfanidaS. 11.22) 


00723 

312* 


CALL EXIT 


0072*1 

313* 

980 

FORMAT! A*. 9* .62AI ) 

SE T U 28 00 

0072* 

31 9* 

990 

FORMAT!* INVALID INPUT CARO-- lCN0RED'/T*tA6.9R .62A1 1 SETU2810 

00726 

31*9 

soo 

F ONMA T C 1 C * • I !’ A 6 ) 

SETU2820 

00727 

316* 

510 

format «8F io.2) 

SCTU2830 

00730 

317* 

520 

FOKMATI A6. |*X.61S) 

SET 02 8 90 

00731 

3 18* 

530 

FORHATI* at LEAST One field must BE INPUT*) 

SE TU28S0 

00732 

319* 

*90 

FORMAT!* TOO RANT FICLOS A RE BEI*G INPUT*) 

SE T U2 860 

00733 

320* 

5*0 

Format (*A .A 6 >9x .62A i I 

SE T c 28 70 


5-80 


ORIGINAL PAGE IE 
Or POOR QUALITY 


S*0 F OR** AT f • AT least ONE FEATURE HuST BE fNPgT*» SETU2860 

S70 FORMAT ( • |N fULOMI.' INITIAL L!N£ # ,IS*» IS GREATER TnAn LaST lISETu2b90 

• NE * • I S I S£Tu2900 

Sao F3*"AT(« t M I t | A L LINt I N r IEl[>* . !*•» * oertNfo LESS Than |*, I S I ScTU2»IC 

S9o F ORma 1 1 • L I wf I *iC WE h F N T I N FICLn # ,l9.* OElIKEO LESS THAN »*,!Sl SETU7*20 

*30 FOWmaT,. »'i FIELD. .I**,. INITIAL SAMFL£» t l& # * IS GREATER T„aN LaS» SETu2,J0 

• S hp L c , **»I S£Tu29**0 

*10 r G«e|l|* ,N,T u l 1a mP E E | N n t L 0 , .|*'.» |S L E SS T M a* I • • (»• S c TO29*0 

620 fON*»*TI* Sam^LC I^C^t^l , * T |N f |£Lo**l* ,,# |S L^S T n- N l*(|SI S|-TU29*0 

6 30 FOR- AT«/' # |HPOT SUMMAWt*//! SETU2970 

6 *»3 FOfc»*AT( 2X , «CLOST| W* ,2* , I2< Al , *(h( • 12, • » * . 1 A! » SET029«0 

SSJ FummAT IS* • I7»S*. I2«F'..2,2A» I SETu2990 

660 FQWh«T|/|SX ,* INITIAL CLUSTER MCa*»S*/» SCTUiOOO 

*70 FOWma T ( // 30X » *F IELOS TO BE cLUSTC WED * * / • * * f • CEO * » * * * 1 * ST • , SX . S£TU30tO 

• •LA ST *.6X.'LINE*,6X.'F|«ST* ,Sx. 'LAST* *6» . 's^HPLE*/ |OX.*M aME» .** . s* TU3020 

• •4.|NE»,6<,tL!NE , ,6X, , |NC,*,6X.*SAMPLE*, , ‘X,»SAMPLE*,9x,|lNC. , /» SE TU3030 

6 d 3 FORMAT! 3 X . I J . • . * . 3 X , A 6 , * < . * < IS.SXII SETu30**0 

690 FORMaTI* USfR M*S RE0UFSTE0 TOO M A NY 0 aTA PO l N T S--STOR aGE NOT A Va1SeTU30S0 

•La«jLC*// # AVAILABLE S T UR aGE ON FN932 o^U H S IS*.|7,» *0 Rd 5 *' SETU3060 

• • AVAILABLE STORAGE o*. r H 1 7 9 2 o R UH IS*.I7.* *OHu»S , /l SLTU3070 

7 .10 FI L f aSSIGnmEj.T NOT mAOE F 0 R U»<lT H-- -*S T A T ■ * , J 7 ) SETU30*0 

7 | 3 FORMAT!* FILE ASSIGNMENT NOT MADE FOR UNIT 7---NSTAT* • , | 7 ) SETujq’O 

End SCT03IOO 


S t TU29S0 
Sg T 029*0 
SETU29 7 0 
SCTU29«0 
SETu2990 
SETU3000 


SETU3030 
SE T o 30*10 


END 

OF COMPILATION: 

NO DIAGNOSTICS. 






setup 

STM30L IC 

29 NOV 73 | 3: 9| : | 1 

0 

0| 60S390 

l*» 

313 

ioeleteoi 

setup 

CODE RELOCATABLE 

N ' 29 nOV 73 l3;9|||| 

1 

0161*692 

3* 

1 

IOElETEO) 




0 

0161*706 

»« 

II* 



c 


( 


S ro*,« TaPE*D.TAP£R3 

UN I V AC 1108 F 0 RTRa* * t»EC || LEvEl 2 SA -<E*ECB LtVCc £12013010*1 
ThIS COMPILATION RAS DOnE On OJ 3EC M AT I2:23j|| 


SUqROUT | NE T 6*0*0 E N IRV PO|M 00 I H 00 


storage useo: c o o c « t > doiajs: dataioi oon 7 2i: blank cohmonizi oooooo 
common blocks: 

0003 PASS 0245/n 


EXTERNAL REFERENCES (BwOCK, NAHEi 

oooh ntran 
0005 CHERR 
0004 UNPA<| 

0007 UNPACK 

0010 UNPCK 

0011 N*DUS 

0012 N I 02S 

0013 NIOIS S, 

00 I A NCKPlS 

-OOIB — nERRJS 

storage aSSIgnnlnt (Block, ttpe, relative location, nanfj 


0001 
0001 
0001 
0001 
0001 
0000 
0001 
0000 
0000 
onoi 
0000 1 
OOOi I 
0000 I 
0000 I 
0000 I 
0003 | 
0000 I 
0000 
0000 I 
0000 ! 
COCO I 
0003 I 
0000 | 
0003 | 
0000 I 
0000 I 
0003 I 


03 0 2 7 3 
00006 2 
0300SI 
000300 
001221 
0302*4*4 
000420 
000155 
030b 3 2 
000202 
000222 
006 1 SS 
OOOS7Q 
0002q2 
000 1 NS 
026506 

000 I 76 
0006s 2 
OOQOON 
000166 
onoooi 

0001 i 1 
000206 
026b'iB 
0001 32 
000562 
006010 


100t 
I SAG 
20L 
2SU 
300l 
3H3F 
173G 
1 l Of 
NSOF 
60L 
AOO 
BLOCK 
001 
FL INE 
HARD 
1CHN 
IFRST 
INJPS 
1ST 
| ,iO 
JREC 
•CRN 

L I M 1 NC 
HAXCLS 
NB 

NC PR 
NOFlO 


0001 
0001 
0001 
0001 
0001 
00 30 
0000 
0000 
0000 
0031 
0000 I 
onoi i 
0000 I 
0003 l 
0000 1 
0030 I 
0000 1 
0000 
0000 I 
0000 I 
0030 I 
0003 I 
0030 I 
0000 1 
0000 1 
0000 I 
0003 1 


00330 
000527 
0032 l 7 
031116 
031512 
0002b** 
000303 
ono ,< 46 
0005*46 
001567 

0002! 3 
026507 
000 I 75 
007700 
r 00 I 63 
000561 
000223 
000635 
0301 62 
000231 
0002 I 6 
026S73 
C007ol 
000165 
000567 

onoi 6 n 
0077QS 


1 2QL 
UOL 
203t 

2 6 0 L 
300L 
3S0F 
3B0F 
12 Of 
*46QF 
622G 

a n c 

CHNTHS 

OSL 

format 

I 

ID 
I F T 
InJPS 

istat 
1 a R D S 

K 

K *f N I T 
L |NST« 

PiAiREC 
NB I TS 
NC 5 
NOPTS 


3001 
303 | 
0301 
0031 
0001 
3030 
0000 
0001 
0001 
0001 

0000 I 

0001 I 
0000 I 
0000 I 
0000 I 
0000 I 

ecoo i 

0003 I 
0003 1 
0300 I 

oooc I 
noon i 
C0C3 1 
0003 R 
0003 I 
0000 I 
0000 I 


OOOlO 7 

000677 

000727 

001120 

0013^6 

000263 

030327 

000 2 •* l 
000121 
000223 
000561 
007706 
000 2 I * 
OOOOOO 
000221 
0001 73 
000232 
000226 
OOOI I I 
00022*4 
000 1 6 I 

000215 

ooni 1 2 
030123 
0 I *467*4 
0 JCb 7 I 
000563 


5-82 


03 OEC 7 3 


I 2 • 23 5 | (••**♦ 


ouu 1 

00015 s 

not 

0001 


000*71 

l5ot 


OOOI 

03012i 

1746 

OOOI 


0007C7 

I80l 


OOOI 

0007S0 

23 0L 

0001 


001017 

210L 


OOOI 

031 1*40 

2«0t 

0001 


00120b 

2*0*. 


OOOI 

000*4 6 i 

3266 

0000 


000231 

3 JQF 


0000 

000273 

3 7 OF 

0001 


0006 1 2 

3706 


000 1 

000121 

10L 

0000 


0003S3 

100F 


occo 

0005o2 

130F 

0000 


00051 7 

110F 


01)0 1 

00H36 

b7 2G 

OOOI 


001162 

5766 


OOOI 

030237 

8ql 

OOOI 


000261 

*0L 

2 2 

0000 1 

0001 1 7 

BIT 

0003 

! 

00730b 

b l k 


000] 1 

002677 

DAS 

OOOi 

1 

OOOI 1 6 

olmin 


0003 I 

00C0S3 

FETVCC 

0003 

1 

00601 1 

FLONAM 

2 Sf 

0000 1 

000177 

FSC an 

0003 

I 

OOOUOO 

MEAD 


0000 1 

000023 

1ST TE 

0003 

1 

026510 

ICHA1N 

'v ^ 

M 

0000 1 

000 1 7*4 

10IH2 

0000 

1 

000200 

1 FLO 


0000 1 

OCC 1 0 7 

INS 

0000 


000616 

I NJP» 


0UC3 1 

007/03 

1RD 

0000 

1 

00021 7 

IREC 


0000 I 

OOOI 7 1 

1 TtHP 

0000 

1 

000160 

IONIT 


0000 1 

00022b 

Jj 

0000 

1 

000230 

JPTS 

• S3 

0000 1 

OOOI *0 

K Nfl 

0003 

1 

007»01 

KPTS 

5 

0000 1 

000212 

1 1 NC 

0000 

1 

000205 

L I Nt 4*0 

0000 1 

000203 

LSK | P 

0003 

1 

00 7 7 0 1 

MAP 


0000 1 

UOul 72 

hash 

COO 3 

1 

01*4612 

N 


0000 l 

00056b 

NC 

OUOO 

1 

000b 7 2 

NCAH 


0003 1 

OOOI 13 

NM |N 

0003 

l 

000052 

NOFEAT 


0000 1 

000227 

npts 

0000 

1 

00056 1 

nRPoS 



0000 | 303*66 
0000 r 000213 
0003 1 00305M 


*5 0030 I 
SA^ENO 0030 I 
STOEv COC-' » 


m3!*220 N S A H P 
P3.32H SaHIMC 
0001 I S S TOM a X 


0330 I 00023“ 
0000 I 00020 * 
0000 I 3005 7 3 


nSCAN oooo 
SAMSTR 0003 
SVD 0003 


1 000233 r«4R 
I 00011/ SEP 
I 00 2* 1 S SYMbLS 


0003 l 02650“ PUNCH 
0003 i 007702 SRTRIG 
0003 I 026S72 VARS I Z 


00101 

1 • 


SuBpoUT| fl E tApCrOI 18UP1 

T ApEOOOO 


00101 

2* 

C • • • 




00 l 0 1 

3* 

c* 


T APE0020 


ootoi 

4- 

c* 

Tapero rcaos the mul t 1 spectral scanner data Tapc. unpacks the 

TAPE0030 


00101 

S' 

c* 

REQUIRED data and STORES |T ON qRUM 

T APEOORO 


OOlOl 

6* 

c* 


T APEOOSO 


00 l 0 1 
00 103 

7* 

8* 

c**« 

Include common. list 

T APEOC 7 0 


00 ION 

0* 


parameter m a xpop»so.maxfet-3o 



ooics 

8 • 


PAHAM£TeR M a Aq I M»2S300 



OC 106 

8* 


parameter maxflo«iod 



00107 

a« 


COMMON/ PaSS/HE ADI N2) # N3EEaT ,rETvECIMAXPC T » , l S TOP , LNC A T , N« | * , KKN , 


. * 

00107 

a* 


• STOHAX ,DLHI N. SEP .MEANS IMAXFET .HAXPOPl • S*oE V C M A XFE T , H a ApOP I . 



00107 

8« 


• NOFLD.FUlN A M(H A XfLO» »aL0c*(M A AfLU.6» • BLK I H a XF LO ♦ 2 1 • 



00107 

8* 


• STHatSlM*XPOPI .DaS.FCRHaT.MaP. 



00107 

8* 


• SPTRIG.IRu.KPTS.NOPTS.cLdIMAXPoP.MaXPOP) 



00107 

8* 


• * N| MaxPOP » ,NBCK 1 MA^FLO .HaaPOPI 



00107 

8* 


• ,PU KM.MAXCLS. ICHU.CMNTMS, ICHA|N|HaXPOP> .VARS 12 


— • 

00107 

8* 


• •Kuril T 



001 10 

8 • 


Integer varsIz 



OOlll 

a* 


integer punch 



00112 

8* 


RcAC mEaNS 



001 1 3 

8* 


INTEGER SPTR 1G. BLOCK »Blk .sti lls, head. FETVCC. FlONAH, das 



001 IN 

8 • 


integer format 



001 IS 

8* 


End 



001 16 

9* 


DIMENSION Io< 3SI • IBijF ( 1 ) 

tapeoobo 


001 17 

10* 


implicit i n t n ge r < * - z i 

TAPE0090 


00120 

1 1* 


DIMENSION FRMI2.2I 

TAPEOIOO 


00121 

12* 


Data FRm/'UnI vERSAL '.'LARSTS 2'/ 

TaPEOI 10 


00123 

13* 


DIMENSION IsTI ISI . laTTE(30) .JREc<30! 

TaPEOI 20 


00123 

IN# 

c* 


TaPEOI 30 


00123 

IS* 

c* 

T ML ARRAYS bIT.NB.AND HWRQ ARF pRE C A L C UL A T tO AORO aNO blT 

Tafeoimo 


00123 

14* 

c* 

positions of information in the header record of The universal 

TaPEOISO 


001 23 

17* 

c* 

FORMAT AH 1 Cm MUST BE EXTRACTED. 

TAPE0I40 


00123 

18* 

c* 


TAPEOI 70 


00123 

19* 

c* 

f.RPOS - No* OF RECORDS PER DATA SET 

TAPEOI 80 


00123 

23* 

c* 

nCPR - NO. OF CHANNELS PER RECORD ON RECORDS PAST ANCILLARY RCC0TaPE019O 


00123 

21* 

c* 

up*c - no. of physical records per channel 

T APE0200 


00123 

22* 

c* 

AnCLNG - ANCILLARY LENGTH |N bytes 

T APE 0? 1 0 


00123 

23* 

c* 

NC - NO. OF CHANNELS 

T APE 0220 


00123 

2 N« 

c* 

ns - no. of samples per channel PER 5c*n 

TAPE0230 


00173 

2S • 

c* 

NBITS - NO* of HITS PER PIXEL 

tapeozno 


00123 

26* 

c* 

uol • OATa order INDICATOR 

I APE 0250 


00123 

27* 

c* 

nOSPR - NO* Of OATA SETS PER RECORD 

T APE 0760 


CO 1 2 3 

2 a* 

J % 

NC A R - NO. OF CHANNELS OF VIDcO OaTa ON SAME RECORD 

T APEC270 


00123 

29* 

c* 

TIT'< ancillary DaTAI 

T APE 0200 


00123 

30* 

c* 

SV*) . STAmT of VlotO oATA. IbYTE POSITION RIThIn data FuR 

TAPt0290 


00123 

3 1 • 

c* 

A GIVEN CHANNEL! 

T APtOlOO 


00123 

32* 

c* 


T APt 03 1 0 


0012N 

33* 


01 ME NS ION 01 T| | | | .NB ' 1 1 ) ( M«RO< 1 | » 

TAPE0320 

- 

00125 

3N • 


OATA MRRp/23*23.23.2N»20'397»2l.2R.39S.j97.2I/ 

T APL0330 
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00127 

35* 



Data BlT/32, 16,29,9,28, 32,3,23. 32,16*8/ 


( 


001)1 

)•• 



Data N6/8«8,9,I6»8,|6»R»R,8,|a»|«/ 




001)3 

)/• 



EQUIVALENCE « 1 0 ( 1 j »N* p 35 | i ( ! CM 7 1 . *CP* > 

• 



03133 

)»• 



»10I3*,nPPc 1 , » !0« 9 1 . ANClNGl 

t 

( 


001)3 

36* 



UDlSl.MC l.ttOU»,9S » 

• 



00133 




1 10(7) , ns ITS 1 . i > 01 * * ,301 » • 

• 



031)3 

9 1 • 



1 I 0 t 9 1 ,NOSP« 1 , 1 I n 1 1 9 » , *C AP It 


1 


001)3 

92» 



( 101 i l i ,svn> 




031)9 

93* 



OATA IUN1T/1/ 




001)9 

99* 

C* 




( 


00139 

95* 

C* 


*t„0 10 RECORD 




001)6 

H6« 



K5UP-680 




001 36 

9 7* 

C* 




i 


001)7 

99* 



Call 9Tran1i'»n17,|0| 




00190 

9?« 



Call STPANl lUN! T .2 ,KPU» , IB'jr . ISTAT ,22 1 




00191 

50* 



If 1 ISTAT.5T01 60 TO 20 


( 


00193 

51* 


to 

AK l T£ (6*390) 




00I9S 

52* 



t TC I 6 *900> rum | .pORNa*) , r R*< 7,f 0 * m a? I 




00151 

53* 



Call CWERR 


( 


00152 

59* 


20 

If (FORMAT. £•). 1 ) 60 TO 90 




00 159 

55* 



Call unpa< i i ! our » 




00 155 

56* 



00 30 1*1,6 


l 


OOUO 

57* 


30 

Call UNPACKS .31 I l .371 


• 


00162 

58* 



NCS»NC*NS ^ 




00U3 

59* 



M A a R E C * 1 ■'ICS* ll * 321/36 ♦ 2 


r 


00169 

60* 



N9PDS ■ 1 




00 165 

61 • 



NC A R • N C 

— 



00166 

62* 



A’lCL N6“9 


( 


00167 

6 3* 



S/u» l 




C01 70 

69* 



N3I TS»B 




00171 

65* 



00 1 *0 


i 


00172 

66* 



N C P R • C 




0017) 

67* 



NJ5PR* 1 




00179 

6A« 



60 TO 100 


( 


00179 

69* 

c • 






001 79 

70* 

c» 


Unpack necesSaRt information rno« meaOER 

RtCOHD-UNi VLRSaL 


• 

00179 

7 1 • 

c» 




( 


00175 

72* 


90 

DO 60 !■! . 1 1 




00200 

?)• 



1 Ai>»H9R0 1 1 » 




00201 

79* 



If | t a 1 Tl 1 (•Nail 1 1 •LC«)6> 60 TO 50 


i 


00203 

75* 



1NB«36-B l T 1 | 1 




00209 

76* 



KNbaNB ( I 1 - 1 MH 




00205 

77* 



ITtPP«f Lnibl Tl 1 1 . !)(■* louf 1 1RD11 


i 


00206 

7 8* 



1 0 f | ) • 1 TEMP • 2 • *K NB ♦ F L0 * 0 » * MB , ! BuF 1 l «0* 1 ) 1 



00207 

79 * 



60 TO 60 




00210 

90* 


50 

C Oil T INUF 


c 


00211 

8 1 • 



ItH I larLtHtf (T( I ) • PA B « ! I . IBUFI ?«0l 1 




00212 

82* 


60 

CONTINUE 




002| 9 

8 3* 



MAAHEC-680 


c 


002 | 5 

6 9* 



IF |NRPoS«Lf 151 60 TO 70 




0021 7 

85* 



• RITE 1 6 * 9 3o ) NRPDs 




03222 

86* 



call cherr 


l 


00223 

»7» 


70 

IF |NPRC«LF. 1 ) GO TO BO 




00225 

88* 



•RITE 16,920> 




00227 

89* 



CALL CHERR 


c 


00230 

90« 


80 

CONTINUE 




002)1 

tts 



IF 1N05PR«LE.01NOSpR»1 




002)3 

92* 



IF (NB|TS*EQ*8! 60 TO 90 



TAPtOJIO 
TAPEOjbO 
T APt03*0 
TAPt03?0 
TaP£03«0 
TaPt03»0 
f APi.0*»00 
T AP£0**»0 
T APE0920 

TaplohJo 

T*PtOH**o 
T APEOhSO 
T APL0«*0 

T APL09 70 
T A p tO<<80 
T APtO**9u 
T»PtOSOO 
T A ‘ ' t 0 S 1 0 
TAPE0S20 
1 aPLOSJO 
I APL0590 
TAPEOSSO 
T APE 05 60 
T APE0S70 
t aplosso 
T APE0S90 
T APEOAOO 
TAP£0a10 
T APL0A2O 
T APE G 6 3 0 
T APt06**0 
1 APL06&0 
T APE0660 
T APt 0 6 7 0 
T APtOABO 
TAP£0a90 
TAPE0700 
T APt07 10 
1 APE0720 

tapeotao 

T AP£07‘*0 
TAPt071»0 
T AP £0760 
T AP£0 7 70 
TAPEO70O 
?AP£0790 
TAPtOSOO 
TAP£O0 >0 
T AP£0ft20 
T AP£C0iO 
T AP£Cb**0 
T APtOebO 
T APEOioO 
T APLOA 70 
TAPEoeao 
T APE OP 90 
T APt 0900 
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ORIGINAL PAGE 

or poor QUAi.r 



0023b 

*3* 


•8 1 T€ 16.9b0M»Mb 


T APE 09 1 0 

00 2*0 

9*- 


CALL C«E*<* 


TAPC0920 

002*1 

9S* 

90 

ir iooi*eo*o> go to ioo 


taplo- l* 

002*3 



•HITE (6**6C*D0I 


T A p t 09 

002*6 

97* 


call C*C‘ ,m 


T A p t09S0 

002*6 

98* 

C * 

• 


T aPE0960 

032*6 

99- 

C* 

0c. t E9h|NE hiSh. n.MMUh **um b c» of SAMPLES u* 

A NT P a RTi c uL a k 

FIELu.T 4 PL0970 

002*6 

ICO* 

c* 

E ¥ pT * fR0M BEGINNING S 4 **PLE TO FNotNfa b A HPLE AILl 

B C ONP A T A Pt0980 

002*6 

101 • 

r * 

fitH h e® 1, C^ T EO c H A ,J,4 f L ^* * 


T 4 P t P990 

002*6 

1 C2 • 

C* 



1 aPEIOUO 

002*6 

103* 

C* 



TAPt 1010 

002*7 

10** 

no 

H A b H ■ 0 


T APt | 020 

0Q2&0 

10b* 


Oo no 1 -itNorLO 


1 APt 1030 

002b3 

l 06* 

1 I o 

MAb*i.PAXfNXS H «<BL0CKll.S>*‘8LnC*((l l 9M|>l 


T APt | 0 *o 

002SS 

10 7* 


li>Ml.NRPi)S.»*AXREC • 1 


TAPt 1 ObO 

002So 

108- 


1 1) 1 *2* 1 D M 1 ♦ HxSm-NOFEaT -1 


Tapeioao 

002S7 

109* 


NOPTS"lMAiQ|M-| 0 lM2l/lNOfcAT-ll 


T APt 1 0 20 

00260 

1 lO- 


IF f NOPTS • Gt • Q 1 GO tO 120 


TAPt 10*0 

00262 

ll 1 • 


•KITE 16.3901NC ,NS 


TAPt 1090 

0026o 

1 1 2* 


call cherr 


TAPt 1 100 

00267 

113* 

120 

COnT ! HUE 


TAPt I | 10 

00270 

| i * • 


XPTS-0 


T APE 1120 

00271 

1 lb* 


1 *0*0 


TAPEI |30 

00271 

1 M* 

C* 



TAPEIMO 

002; 1 

1 1 7- 

c. 

Data SET LENGTH in BYTES 


TAPt 1 ISO 

00272 

1 I • 


OSl«ANCLNG-nS*NC 


TAPt I 1 60 

00272 

1 19- 

c* 



TAPt 1 | 70 

00 2 7 2 

120. 

c. 

REAP FIRST 0* T a SET TO OE Tf RN 1 Mf FIRST SCaN 

LINE NUNbER 

TAPt i i a o 

00272 

121- 

c* 



TAPt 1 190 

00273 

122* 


C.LL hUFILL 


T APt 1 200 

002 7** 

123- 


CALL NTRANI 1 1* N I T »22) 


TAPtl210 

0027b 

l 2** 


IF 1 1ST ( 1 1 .Gl .0» GO TO | 30 


T A p t 1 2 20 

00277 

12b- 


*MU I6*9|p) ISTI 1 I 


TAPEI230 

00302 

126- 


AN 1 TE 1 6 , *00 • F RN f l .FORMAT 1 . FRHI 2,rOR**AT 1 


TAPt 12*0 

00306 

127- 


CALL CREI-P 


TAPtl2S0 

00307 

l 28- 

I3C 

If IF0R"a1 • £ u • 1 l!FKST«FLDl20»16#ltUFl 1611 


T APE l 260 

0C3l | 

129- 


lUrORMAT.to.7l 1FR5T-FL0I0. 16. 1 eLT t I * » 


T APt 1 2 7 0 

00 3 | 3 

1 30- 


II 1 IFRST.Gt.C* GO TO 1 *0 


TAPE 1280 

00 3 | b 

131* 


RRITt 1 6 • 36C 1 


TAPt 1 290 

0031 7 

132* 


RMTE 1 6 i **0p 1 FRM 1 .FORNAX . F RN 1 2 . F ORH a T | 


T APt 1 300 

00323 

133* 


CALL CNERR 


T APE 1 3 1 0 

0032* 

1 3** 

MO 

ESCAN.IFBST 


TAPE1320 

0032b 

l 3b* 


00 310 IFLO.I ,NOFLC 


TAPt 1 330 

00330 

136* 


L INSTR6BLUCK < IFLO. 1 1 


TAP£13*0 

00331 

1 37* 


ll IIINSTR.&1 . IFRSTI GO TO IbP 


TAPtlSSO 

00333 

138- 


li*«s t r«ifrst 


Tape i 36o 

0033* 

1 39- 


BlOc»:i IFLO.I MIFRST 


TAPE 1370 

0033b 

MO- 

ISO 

CUNT I NUE 


TAPt | 380 

0033b 

Hl* 

c* 

FLINE-FIPST Scan On RECPRO CONTAINING LI^STH 


Tape i 390 

00336 

192* 


FL INF »L MST p-POOC lLMSTR-lFRSTJ .NDSPRl 


tape 1*00 

00337 

M3- 


LSA IP-1 I FI !Nf -FSCAf 1 /HCSPR-I 1 -NREpS 


TAPt M 10 

00337 

M*- 

c* 



1 m P c l * 2 0 

00337 

l*b. 

c- 

smp ooai: ThI. Tape to beginning l i nf of t H |s 

field. 

1 APt 1 *30 

00337 

1 *6- 

c- 

A r, t INITIATE REaO F OP FIRST (A T A SET 


tape 1 **0 

00337 

| 97* 

c* 



TAPE Mbo 

003*0 

l 9 8 * 


IF IF SCAN.EO.FL ME 1 GO TO 160 


TAPt. 1*60 

003*2 

1*9* 


call ntram junit .t.lskipi 


TAPt 1*70 

003*3 

1 bO- 


C.LL .Uflll 5 _g S 


TaPEMBO 







1 



oo3““ 

lb 1 • 


FSCAF.»FI INE 


. .. _ . . .... . 

TAPE1990 

( 

003“S 

152* 

l*C 

CON T|NUf 



TAP£I500 


0Q3«t6 

IS3* 


NbC A».«L I * STB 




TAPtlSlO 

( 

003*i7 

1 b“ • 


17 1 BLOCK 1 I'Ll-.bl .GT.NSlBLOCKUFeO.SI-NS 



TAPE1520 

003&I 

Ibb* 


LINCNQnBLOCk t IFlC.2) 




T APE1530 


00352 

lb** 


L iNir.c-dLCCK « 1 7 L r » 3 1 



T aPE lb“0 

( 

00353 

1 b 7 • 


SAMSTB*8LC/C«C IFL0,“1 


— 

TAPElSbO 

0035“ 

lb«* 


SAHENC-blOCO I7 lP,S! 



TAPE 15*0 


00 35b 

1S9* 


SA«lMC*eLCCK« 1 Fl0,6) 


— 

TAPE 1 570 

( 

0035b 

160* 

c* 

LINC-NO.OF RfcOROS TO SKIP AFTER EACH ScCa* 

LINE 

Ta p E 1580 

0035* 

141* 


L l»«C* <L I*. INc'HOSPR - »»*NRP0S 



T A P 1 1 b 9 0 


00357 

1*2* 


IF <LlNC»Ll.OlLIF.C»C 



TAPE 1 600 

t 

00357 

1*3* 

c* 




TAPI 16)0 

00357 

1 6 “ • 

c* 

establish AREAS ON each scan line to unpack 


Tape i *20 


00357 

Job* 

c* 

. 



TAPLI630 

i 

003&1 

1 66* 


ANC-ANCLNG « SAHSTR ♦ SvO - | 



TAPtl6“0 

00362 

— 1 6 7* 

. . ... 

IF (FORMAT. EC. 1 ) ANC»ANC*2 



TAPEI650 


0036“ 

168* 


FC-l 



T APE 1 660 

( 

0036b 

» 69* 

. . 

LC-NCAR 


....... .... 

TAPE 1670 

0036* 

170* 


K« 1 



TAPE 1680 


00367 

171* 

... .. 

00 210 I ■ 1 .“Of £ AT 



TAPE1690 

( 

00372 

172* 


00 190 IRFC.r.NRPDS 



TAPE i 700 

0037b 

- 173“ 

. 

IF C IkCC.ftT, | » aNC» 2 ♦ SAHSTR ♦ SvO - 1 


-. . 

TAPE1 710 


00377 

1 7“ • 


IF crETVEClM.6E.FC.AN0.FETVECIH.LE.LCI 

60 

TO 170 

TAPE1720 


oo“oi 

17b* 

. . . 

IF (FETVfC 1 |> .GT.LC.AND. IREC.LT .NRPCS) GO 

TO 

180 

TAPE 1 730 

( 

C0“0 3 

1 7** 


WRITE 16.““C*FETVECI I I 



TaPE17“0 


- 00“0* 

177* 


CALL CHERK 



Tape i 7bo 

( 

00“07 

178* 

170 

IBVTLI I »*IFETvCCi 1 1»FCI*NS • ANC 



TAPt 1 7*0 

00“ 10 

1 79* 


J»EC 1 1 1 • 1 RE C 



tape i 77o 


00“1 1 

180* 


GO TO 2CC 



T APE 1 7 80 


00“ 1 2 

l 8 l * 

180 

fl*lc*i 



TAPE1790 

( 

00“|3 

182* 


LC*LC*NCPR 



TAPEI800 


00“1“ 

183* 

190 

CONTINUE 



TAPI 18 10 

( 

00“ 16 

1 8 “ • 

200 

K* IREC 



TAPE 1820 

00“ 1 7 

1 8b* 

210 

Continue 



TAPE 1830 


00“| 7 

186* 

C* 




TAPE | R“0 

i 

00“ 1 7 

187* 

c* 

NSahP • NO. or samples to unpack for EACH 

FEATURE IN FET VlC 

Tape i abo 

00“l 7 

188* 

c* 




TAPE 18*0 


OC “ 2 1 

189* 


NSAmP*SamEnc-SAM5TR * I 



TAPE 1870 

( 

00“ 2 1 

1 90* 

c* 




TAPt 1880 

00“2 1 

191 • 

c* 

BEGIN LOOP rOR READING AND UNPACKING DA?* 

IN 

THIS FIELD 

TAPE 1890 


00“2 1 

192* 

c* 




TAPtlvOO 


00“ 2 2 

193* 

220 

1 ADR* 1 0 1 M | 



TAPE 1910 

t 

00“ 2 3 

1 9M* 


ADO - 1NSCA*,-FSCAN1 *OSL 



TAPt 1 920 


00“2“ 

1 9b* 


00 2 bO 1 F T • | .NOFEAT 



TAPt 1930 


00“ 2 7 

196* 


«!• JREC 1 IPT I 



TAPE I 9 “0 

< 

00“ 30 

197* 


JJ* ( J- l 1 •NAjREC * 1 



TAPt 1950 


00“ 30 

198* 

C* 




TAPE 19*0 

c 

00“30 

199* 

c* 

CHECK STATUS OF THIS RECORO BEFORE UNPACKING 


T APE 1 9 70 

00“ 30 

200* 

c* 




tape i 9Bo 


00“ 3 1 

201* 

230 

IF 1 I ST t Jl .61.0) GO TO ?“0 



TAPE 1990 


00“ 3 3 

202* 


If 1 ISTl J* • 1 0 . - 2 > GO TO 280 



T APt 2000 

1 

00 “ 3b 

203* 


IF 1 I5T1 J» .gL.-I » GO TO 230 



T APE20I0 


00 “ 3 7 

20“ • 


WRITE 1 6 • 3bn > 



T APE 2020 


00““ 1 

20 b* 


WRITE I 6 . 37q t nSCAN. 1ST 1 Jl 



T APt ? D 3 o 


00““b 

206* 


WRITE I6.“00»FRM1 l .FORMAT 1 » F Rfl 1 2 * F OR* AT > 



TAPt 20“0 


00 “b 1 

207* 


GO TO 280 



T *rt 2050 

( 

00“bl 

208* 

C* 

5-86 



T APE 20*0 



00*SI 

209* 

' 0 

00*S1 

210* 

C» 

00*S2 

21 1 • 

i 

00*5 3 

212* 


oo*s* 

2 1 3 * 


OC*SS 

2 1*. 

i 

00*S7 

2 1 S* 


00*6 1 

216* 


00*62 

2l»* 


0C**“ 

2 l** 


00*6S 

2 19* 


00*66 

220* 


00*70 

221* 


00*7 1 

222* 


00*72 

223* 


00*72 

22** 

c* 

00*72 

22S» 

c* 

00*72 

226* 

c* 

00*73 

22 7* 


00*73 

228* 

c« 

00*73 

229* 

c» 

00*7* 

230* 


00*7S 

2 3 1* 


00*76 

232* 


00*76 

233* 

c* 

00*76 

2 3** 

c» 

00*76 

2JS* 

c» 

00*77 

236* 


OOSOI 

237- 


0 0 S j 2 

239* 


0 0 S o 6 

239* 


00S06 

2*0* 

c* 

00S06 

2*1* 

c* 

00S06 

2*2* 

c* 

00S|0 

2*3* 


00S| 1 

2**» 


COS | 2 

2*5* 


00*13 

2*6* 


OOSi* 

2 * 7 • 


OOSjS 

2*a« 


OQS l 6 

2*9» 


00S|7 

2S9* 


0QS20 

2S I • 


OOS 2 2 

2S2* 


00S22 

2S 3 • 

c* 

00S22 

2S*« 

c* 

00 S 2 2 

2SS* 

c- 

0CS22 

2S6* 

c* 

00^22 

2S7« 

c* 

OOS22 

2SB • 

c* 

0QS22 

2S9» 

c* 

00S22 

26C* 

c 

00S23 

261* 


00& 2 * 

262* 


OOS2S 

263* 


0OS26 

26** 


0OS3O 

265* 


C0S3 1 

266» 



u.«rack data for this feature 

I P* ADO ♦ tBfTEllFTI 

CACL UNP C < « | p ihVMjJl .N5AHP. 10UFI I AO*» » 

I A39* I AOQ‘1,3* 

C J lT | Mu E 

IF (( >iSC*^lll«lN(,i(T«U<ICNO | GO TO 290 
*S c ,N.NSr A « • *- 1 >• I *« C 

IF ‘ ScS*,T»<rSC A M*HO*»*« H GO T 0 2?0 

FsCam*F S CAN * NOS p **<» ♦ UNf/H«POS» 

Call *t« ami i uni T , 7 »l I nc i 

IF i NSC AN«LT • IFSCAN.NOSPR > » GO TO 260 
CALL NTRaNI |JN|T,7.I » 

FScaWScaU.NoSP* 

CONTINUE 

INITIATE rCAO FOR NEXT SCAN 
CALL BUFILL 

transfer Data for this scan line 

CONTINUE 

Call THNSTRi IBUF I I0IH1 » .1BUFI 10 IH2> .NSAMR, HASH. NOFEAT » 

GO TO 22 0 ^ 

End of oata 

IF 4NSCAN.GT.LINSTR )NSCAN*NSC AN-E 1NINC 
BLOCK I IFLD.2* »NSC AN 

• RItE 16. 390» |Ft_0,N 3 CA»l 

IF ( 1FLO.CO.NOFl J l GO To 300 

R£ A I NO TARE AND POSITION AT FIRST SCAN UnE 

CALL NTRANI |UNI T t22, 10.22) 

CALL NTRANljUNITi7.il 
FSC AN* | FRST 
CALL BUFILL 
GO TO 000 

CALL TRNS^NC I BUF I I 0 I H | I , 1 aUF I I 0 | ) , NS AHP , HASH , NOFE A T | 
BLAUFLO, 1 I.«LINEN 0 -LIN 5 TRI/LININC ♦ I 

BLK( IFL0.2I*«SAHEN0-SAHSTRI/SAM|Nc ♦ | 

CONTINUE 

CALL NTRANI IUN1T.22) 


TAPE2070 
T APE 2080 
TAPE2090 
TaP£21 00 
T APE 2 | 10 
TAPE2I20 
TAPE2I JO 
T a^E 2 ! *0 

T Ap t 2 I So 
T A^L 2 I 6q 
T APfc 2 I 70 
TAPL2I60 
T a P t 2 I 9 0 

T A p t2?00 

T A P t 2 2 I 0 
TAPL2220 
T *Pt 2230 
T APt 22*0 
TAPL22S0 
T APL2260 
T A Pt2270 
T APE22B0 
1 APL2290 
T APL2300 
T APL2310 
TAPL2320 
T APE 2 3 30 
T APL23R0 
T APl23SO 
| APE2360 
TAPE2370 
T APE2380 
TAPE2390 
TAPE2H00 
TAPL2610 
TAPE2H20 
T APE 2*30 
TaPC2**0 

TAPE2*S0 
TAPE2960 
T APL2M /O 
TAPE2H80 
TAPE 2*490 
T APE2S00 


TAPE2SI0 

•MITE PAKTIaLLT FILLED BUFFER ON TO ORUH* RECALCULATE IHe NUHbEN TAPE2S20 
OF POINTS mhICH The I BUF I IOAT» ARRAY »IlL HOlO IUSING The BUF F t R T aPE 25 30 
AFEaS MH I C H MERC USED IN TaPE I/O). IF ALL OF DATA «ILL FIT IN C0TaPL2S*0 
read it BACA INTO luUfijI F ROH d r UM, |F NOT , READJUST T«E NUHbeR TaPE2S5o 
records and recoro length. •• warning •• This can be oone onlt t*pe2S60 

Drum . binary i/o tapl2s7o 

TAPL2SBG 

WAHSI2»H0FEa t *IN0FEaT*I 1/2 TAPE2S90 

NPlS*(HAXDlH-VARSU*HAXcLS)/tNOpEAT«| ) TAPt2600 

JPTS*N0PT5» l RD ♦ KPTS TAPE26I0 

IF IKPTS.EU.O) GO TO 320 TAP£2a2Q 

|RR0S»NOFEAT # KPTS TAPE2630 

C X L L NTRAI. ( N . | . I r'RDS . I HUM lr IH2 ) . I ST AT , 22 ) TaPE26*0 



! 


00S32 

267* 

320 ! NO- jPTS/f.PT5 

TAPE26S0 


O 0 S 33 

268* 

APIS- J p TS 

-:r(’*npts 

T APE 266 q 


OOS39 

269- 

IF (KPTS.G 

T.o, |RO«|RO a l 

T APE 26 70 . . 

— - 

00*36 

2 70* 

nopts-npts 

TAPE260Q 


00S37 

271* 

If I |R*).GT 

. 1 l R £ T u * *1 

Tape 2a9o 


OOSmI 

272* 

CA(.L NTRAN|«,iICI 

TAPE2700 


005v2 

273- 

1 -KOS-KPTS-nOFEaT 

T aPE2 7 1 0 

_ 

OOSv3 

2 7 V • 

CALL BROS • I RUF , 1ST AT ,221 

TAP t 2720 


00 S«*v 

2 7 S* 

IPQ-0 

. . 

T APt 2730 


OOSvS 

276- 

RETURN 


TAPC2790 


0 0 b V 6 

277* 

330 FORMAT! • 

EN3-0F-FILE ENCOUNTERED ON HEADER RECORD*! 

t APE27SO 


OQSv 7 

2 78* 

3vo format 1 • 

UNRECOVERABLE ERROR REaOIRO HEaCER RECORO') 

T a PE 2 760 


ocsso 

27 V* 

3S0 Forma T 1 * 

error nH | le READING Data recoro'i 

IAPE2770 


OOSSI 

280* 

3 AO FohmaT!* 

a LINE NC* IS less than or equal ZERO' 1 

T APE 2 7 00 


00SS2 

281* 

370 run-*!!* 

LAST scan line read*. is.* istat-*,is> 

I APE2790 


0CSS3 

28 2* 

380 ron-AT| • 

FIELD BOUNDARY FOR FIELD ••!*••• DEFINEO eETONy SCOPE of 

OAT APL20OO 


00SS3 

283* 

•TA*y* THIS FLIGHT LINE C ON T A ! Ns • • I 6 . * SCAn LINES*) 

T APE2A10 


OCSSV 

2BV- 

390 FORMAT!/* 

INTERNAL DIHFNSIONS T nO small For Data*/* NO, Of CHANNELTaPE2§20 


oosss 

28S' 

•S ON DATA 

T Al'E* * • 1 7 . * NO. OF PC|I TS/CHAN) El»* . 17/1 

TAPE203O 

— 

OOSSS 

206* 

*•00 f OHHATI • 

YOU HAVE INDICATED DATA TAPE IS |N*.2A6** FORNaT'// 

T AP£20**O 


OOSSS 

287- 

• 

« CHECK THE FOLLOalNG 

POST APE2RS0 

- 

OOSSS 

2 86* 

•SlbLt ERACRs*/* 1. HAVE TOO INDICATED CpPMCY FORMAT •/ 

T A P c 2 ft 6 0 


OCSSS 

289* 

•* 2. ! F DATA TAPE IS 9-TRaCK, lhl -A5G- CaRO SHOULD HaVE AN -N- 

CP I APE 28 70 


OOSSS 

290* 

• T i on • / 9 x » 

•and a message to operator shoulc be ON S88 fdrh*/ 

TaP£208O 



006)3 

006)3 


323* 

32V* 


• 3. If T Mi D*T* T*Pt fc<)5 GC Nt R 4 TC 0 ON a HaC«H»E OTHER T H * N THE 11TaP£2890 

O0'/VX,*THE -aS 6 - Ca r © SHOULD H t Vf a* -a* OPTION*! TaPE2900 

FORMAT!* ERROR REa©1N<* FIRST DATA RE C 0*0* - I S T a T * * . 1 3 I IaPE2*10 

FORMAT!* ONl v ONE OR LEs* RECORD* PER CHANNEL ACCEPTABLE AT TH|j TT APE 2920 
| HE * I T APE 29 30 

FORMAT!* NO. OF RFCOHDS PER OATa SET**,|S,* MUST BE LESS Than OR ETaPE29V0 
QUAL IS*) TAPE29S0 

FORMAT)* FEATURE NUMBERS* IS.* A*© ABOVE #Ri NOT ON ©aTa TAPE*/ TaPE2960 
) TAPE2970 

FORMaTI* NO. OF bITS/PI*EL«*.IS,* ONLY P B ITS ACCEPTABLE aT THIS T T aPE 2VbO 
I Ha * I TAPE2990 

format!* oat* order indicator-* i is/* oat* **usi 6E ordered bt pixEltapetooo 

• ) T APE 30 I 0 

TAPE30*0 

internal routine to transfer data from one buffer area to tapl3o3o 

another and Dump on to orum when filled tape3o**o 

T APE 3QS0 

SUBROUTINE TRNSFRI IBLF.CBUF.NSAmP.MXSh.NOfEATI TAPE3060 

OIHEHSION | B UF (HASH.NOFEATI .CBUFINOFEaT.NoPTS) TaPE3070 

REAL CBUF T APE 3060 

DO 3C0 I J* l .N sAMP.SAHJNC TAPE3090 

kpt s-kpts* i tape 3 i oo 

DO 290 J«I»nPF|AT T AFE3 l I 0 

CbuF! J.KPTSl* IBuF I I J. J) TAPE 3 I 20 

CONTINUE TAPE3I30 

IF IkPTS.LT.nOPTSIGO TO JCO TAP£3|10 

NNR-APTSANOFt AT T APE3 1 SO 

CALL NTRANIh. | .KAR.CBUF. ISTAT.2I) TaPE3|60 

K I' T S a 0 T APE 3 I 70 

I R0- I RO* I T APE 3 | 80 

CONTINUE T APE 3 I 90 

RETURN T APE 3200 

T APE 3210 

INIERNAL ROUTINE TO INITIATE PEaDS FOR 0*E SCAN LINE! TaP£3220 

5-88 


OOSSS 

29 2 * 

•OB'/NX.'THE -aSG- CaRD SHOULD H t VE 

aR -a- option* 

1 

00SS6 

293* 

DC FORMAT!* ERROR REa©1N<* FIRST DATA 

recoro--istat** 

• 13) 

00SS7 

29V* 

*»20 rOHMATl* ONlV one or LESS RECORDS 

PER channel acceptable 

00SS7 

29S* 

• 1 HE • 1 



OOSaU 

296' 

**30 f OR HA T 1 * NO. OF RfCOROS PER OATa SET**,lS,* HOST 

BE LESS 

00S60 

297 * 

•QUAL IS*) 



oosai 

298- 

R**0 FORMAT!* FEaTURE NUMBERS* IS,* A) D 

above are not 

ON OaTa 

OOSAI 

299- 

• 1 



OOS a 2 

300* 

••SO FCRMaTI* NO. OF £ I TS/P 1 XEL* * . IS , ' 

ONLY 0 bITS ACCEPTABLE 

00SA2 

301* 

• iMt • | 

- - .. - 

ordered 

OOS A 3 

302* 

haO FuRma T !* P A t A ORDER INDICATOR-* , IS/* DAT* PuST 6E 

00SA3 

303- 

• •1 



00563 

30V* 

C* 


area to 

OOS A 3 

30S- 

C» INTERNAL ROUTINE TO TRANSFER OATA 

FROM ONE BUFFER 

00563 

306* 

C* ANOTHER AND ©UHP ON TO DRUM WHEN FILLED 


005a3 

30 7 • 

C*„ . 

. . 


005a9 

308* 

subroutine trnsfpi iblf.cbuf.nsamp. 

HXSm.NOfE AT I 


00567 

309* 

DIMENSION le©F {HASH. NOFE aT 1 .CBUF INOFE aT.NOPTS) 


00570 

310* 

REAL CBUE 



00S7I 

311* 

00 3C0 I .T.SRPP.SAHINC 



00S79 

312* 

KPT 5-K PTS' 1 



00S7S 

313* 

00 290 J* 1 . NPF t A T 



00600 

3 1 V • 

CfcUF! J.KPTS1-IBUF 1 I J.J) 



00601 

3 l S' 

2«0 CONTINUE 



00603 

316' 

IF 1kPTS.LT.nCPTS)G0 TO 3C0 



0060S 

317* 

N».R*' PTS'NOFEAT 



00*06 

310* 

CALL NTKAMv, 1 .KAR.CBUF , ISTAT ,2|) 



00607 

319* 

Kris*o 



006)0 

320* 

IRO-IRO'l 



006) | 

321* 

300 CONTINUE 

- .. . 


006 | 3 

322* 

RETURN 




ORIGINAL PAUL lb 
OF PJ)0R QUALITY 





£ NO 0> COMPILATION: NO 0I*0MSTKS, 


T *PE RD 

TaPERO COOf 


symbolic 

2» 

NO i 

7 3 


c 01*2*072 

I* 

333 

Relocatable 

2» 

NOV 

73 

i3;*»i : i** 

1 01A3JIA0 

3* 

1 






0 01*3322** 


121 



(OELETCO) 

IOELCTCOi 



9 ASH,. t 0 ATt,T 0 AT E 

ASSEMBLED B f UNJVAC I I 08 lA£C I! ASsFmBLCR 2909 00C8A 

This assembly has done on 03 dec 73 at i2:23;is 
OOOOOI « J of n 


000003 
CTO?'- i 

0 0 0 -J J h 

00000s 
000006 
Oil 1 oi 
000008 
0000J9 
000010 
00001 1 


lOFNT IF ICAT 10* 

TITLE TOOAVS DATE 

PROGRAMMER lockhllu electronic* test data reduction 

OATf OCT I 967 

tnsTailation manned spacecraft center • mouston 
DESCR lPT ION 

THIS ROUTINE IS DESUNEU TO t)L CaLLEO B t FORTRa* v 
and TO RETuRn 8 CHa r AC t LR S cOnT a 1n|H6 Oa t M° n TH Y£ a R 


lUOATS DATE 

LOCKHLLU ELECTRONICS TEST 
OCT 19*7 

manned Spacecraft CENTLR - 


U/U/U 


0000 1 2 
000013 








Ti/ATE • 

I tdate* 

• 

• 


000019 

90 000000 

06 

01 

13 

00 

0 

00000* 


s,l 

8 1 1 .biim 

OOOOIS 

000301 

27 

00 

19 

13 

0 

000000 


L 

A0.A0.81 1 

000016 

000002 

29 

1 6 

19 

00 

0 

OOOOOI 


A • 1 9 

AO.M 

000017 

000018 

000003 

06 

01 

1 9 

00 

0 

ooooo* 

r 

s. 1 
form 

*0.»*2 

6.12.18 

000019 U 

000009 

79 

13 

13 

00 

0 

000000 


LHJ 

l l , EDATE* 

000020 

000005 

OU 

0002 1 

900000 

— . 

F 

0,2,*-* 

000021 

00900 * 

27 

16 

13 

00 

0 

000000 

^ 81 1H 

L.19 

8l | ,8-S 

000022 

000023 

00090 T 

79 

09 

90 

13 

0 

000002 


J 

CnD 

2,11 


symbolic 

Relocatable 


29 nOv 73 
29 NOV 73 


1 J:*»i : i* 

1 3; 9i : 1 6 


0 I 636**62 
0163716** 

01637300 


tOCLCTCOl 

(OeleTeO) 


( 


5-90 



oj oec 


i>:2):iNsM 


• • • 


8 F 0R,» T | TE.MRITC 

UNlVAC 1108 FORMAN V EaEC II LEVEl 2l« -IC4CCI LEVEL FI20I00ICA) 
This COMPILATION *aS OOME on OJ OEC 7 J *T I 2 : 23 ; 1 7 


SU«HOUT|N£ T *R| T E EnTRY PO|N? OOOn7n 


STORAGE USED: CJl)E(|| OOOSlo; JATA(fJ) 300226! blank jOhNON ( 2 i nooooo 
common blocks: 

0003 PASS 02657* 


EATERNAL REFERENCES IBlOCK. NAREi 


OOOH 


NNCOOS 
















000b 


NTRAm 
















ooo« 


NlOlt 
















0007 


N 1 0 2 1 
















0010 


NERAJ* 







, 









STORAGE 

assignment 

(BLOCK, TYPE, RELATIVE LOCATION. 1 

NAME1 










0001 


030 3f) 1 

ll*L 

000» 

0000 1 0 1230 

0001 


000*1* 

I2SL 

0001 


ooooi* 

1 3 0 *» 

cool 


0000>2 

!«•« 

0001 


0J00S6 

1 S * G 

0001 

000063 l s 6 G 

0001 


000117 

1 6 7G 

CCOI 


000 l 3 1 

I7SG 

ooo: 


000 1 83 

2056 

0001 


030 r>* 

21 1G 

0001 

000220 27/G 

0001 


000227 

2 38 fe 

0001 


0002NI 

282 G 

0001 


C00085 

2SL 

0001 


03025 3 

2&2c 

000» 

000266 25 4 G 

0001 


000325 

278* 

0001 


000360 

30 7 fc 

0001 


000802 

31 36 

OCOl 


000101 

3SL 

0000 

000161 SOOF 

0000 


OCOl 63 

SI OF 

oooo 


000I6N 

5 20 F 

0001 


000171 

6SL 

0000 

1 

000001 

UCDRAY 0003 

1 00730S 6L K 

0003 

1 

0061SS 

BLOCK 

0003 


026507 

CMNTHS 

oooo 

R 

000080 

CMNVlC 

0003 


0Q770* 

CLO 

3003 

t 007677 DAS 

0003 


0001 1 * 

OLMIN 

0003 

1 

000053 

FETVEC 

0003 

1 

00601 1 

FLONAM 

0003 

1 

007/00 

FORMAT 0003 

1 000000 ME AO 

0000 

1 

0001 3R 

1 

ooor 

1 

000000 

I6LANK 

0003 


026510 

ICHAlN 

0003 


3 2 6 S Q 6 

ICHN 

0000 

I C 0 00 7 6 1CMVLC 

0000 


000178 

1NJPS 

000 3 


007703 

IRO 

oooo 

t 

000137 

istat 

0003 


0001 1 1 

ISTOP 

0000 

1 OOOIMI II 

0000 

1 

000 1 N 3 

12 

oUOO 

1 

000 1 8 6 

13 

OOOO 

1 

000187 

1 8 

0000 

1 

0001 3S 

J 

oooo 

I OOOlSS Jt 

0000 

1 

000157 

J2 

oooo 

1 

000140 

J3 

oooo 

1 

000180 

K 

0000 

I 

030136 

KA 

0003 

00770** KPTS 

0003 


0001 1 R 

KRN 

0003 

1 

026573 

KUNIT 

oooo 

1 

000150 

Kl 

0000 

1 

300 1 S 1 

K2 

0000 

! 000IS2 K 3 

oooo 

t 

000153 

K 8 

oooo 

1 

000158 

K5 

oooo 

1 

000188 

L 

0003 

1 

000117 

LNCaT 

0000 

I OOCIHS LI 

000 3 


0077ol 

MAP 

0003 


026505 

MAKCLS 

0003 

R 

000120 

MEANS 

0003 

1 

0MM2 

N 

0003 

0 1 86 7 8 NBLK 

0003 


0001 1 3 

NMJN 

0003 

1 

000052 

NOFEAT . 

cooo 

I 

000182 

NOFEAl 

0003 


006010 

NOFlO 

0003 

Q0770S NOPTS 

OOOO 

1 

000156 

NOREC 

0003 

1 

026508 

PUNCH 

0003 


00011 7 

SEP 

0003 

1 

007702 

SPTRIg 0003 

R 003058 STOEV 

0003 


0001 IS 

STOMAI 

0003 

1 

00 7 4)5 

SYMBLS 

0003 

1 

026572 

VARS1Z 

0000 

1 

000037 

RORuLN 

- 




.. _ 




— 





00100 












• •• 

>• 





00)00 


2» 

c* 

•HITES ON 

TaF£ IN BCD FORM 

STATISTICS FROh 

ISOSCLS 

TO be 

HEAD 

• 





00100 


3? . 

C* 


BY ERIPS 








• 





00100 


8« 

c**»* 









• ••• 





00 Jo » 


S* 


SUBROUTINE T*R 1 TF. | COVAR ) 













00103 




INCLUDE COMhCN.LIST 













00 1 OR 




PARAMETER 

Ma>POP»SO,Ma*FET- 

30 












OOIOS 


6« 


parameter 

P<A Aol M"2S000 













00106 


*• 

. 

parameter 

Ma*FLD*IOO 




, _ 









00107 


6* 


COHMOM/PASS/hEAOl M2I .NOFEAT 

.FETvECIMAAFeT 1 

, 1 STOP, LNCAT ,NM|.4 

.KRN, 





# 


( 


CO 1 07 

6» 


00107 

6* 


00107 

6* 


00107 

’ 6 • 


00107 

' " 6 • 


00107 

6* 


00107 

6* 


001 1C 

6 • 


001 1 1 

6* 


001 1 2 

6* 


001 | 3 

6* 

• 

001 |H 

6* 


001 |b 

A* 


00116 

7* 


00120 

8* 


00121 

*• 


00121 

10* 

c 

00121 

11* 

C 

00121 

12* 

C 

00121 

13* 

c 

00122 

1 H • 


0012b 

lb* 


00127 

16* 


00132 

17* 


00133 

IB* 

— - • •; 

00133 

IT* 

c 

00133 

20* 

c - 

00133 

21* 

c 

00135 

22* 


OOlHS 

23* 


001<46 

2 H* 


00150 

2b* 


00153 

26* 

...... ; 

OOlSb 

27* 


OOtbb 

28 • 


OOlbb 

29* 

c 

ooibb 

30* 

c 

00160 

31* 


00163 

32* 



00I6H 

33* 


oc; ah 

3H* 

c — 

00161 

35* 

c 

0016H 

36* 

c 

00166 

37* 


00171 

38* 


00173 

!»• 


OOI7H 

HO* 

_ 

00177 

n • 



• STOMAfc.DLUllSSCP.HfcANSjllAXrfT.PAlPOP) .S T Ot V t H a*F£1 .HAAPOP , , 

• NGF LU .ElCNa^ (Pa»E LC > .BlOCM*»AKrll>.6> .BL*(Ha*FLD.2I • 

• StHpiSIHAXPCPl ,0«S. FORMAT .H*P. 

• SPT»»?&. l*D,M > TS»* op TS.eLC<*'»*PO*.«***OH 

• • s ( haipof j ,kpl* i ha*f uc .haxpgf i 

• ,PUHCH,M»*ctS . ICMfc.CMf THS. (CHAIN! HAXPOr l , V A*S I l 
•.KONlT 

INTEGER VA>Sl2 
INTEGER PUNC* 

REAL HEANS 

(NT f G£ P S*»T H tG.BLOCFtBUC .STHpLS.HC AO.FET Vtc .FLONAR.OAb 
|M£6t' FORhAT 

ENU • 

OAT* (BLANK/ • •/ 

INTEGER feCORAY, BOHOL* 

DIMENSION BC^RAVOOI* ChNVECC30».C0VaB!L»*CaT.VaBSII».ICh¥ecI JOI 


00201 
00202 
00203 
C 0 2 u *< 
00207 
002 | S 
00216 
00220 
0022 i 
00222 


CHNVEC CONTAINS rerequested features: 0 — CHANNEL BAS not requested 

I -- CHANNEL BAS REOUESTEO 

Oc 10 I • It 30 
10 ICHVEC C I I ■ 0 

00 2D J * I, NOFEAT — - 

KA ■ FETVEClJ) 

20 ICHVFCIKAI • 1 

RLCORD I *• no. OF CLUSTERS. NO. OF FEATURESt ANO RENUESUO CHANNELS - 

■w 

ENCOOEtSOO. BCORAV) LNCAT, NOFEAT* ICHVEC 
CALL NTRAMIKUNIT, I * 6 . BC DP A Y , I S T A T » 

2b IF ( ISTAT .£0* I I 60 TO 26 
00 30 K ■ 1 « 30 

30 fiCORAVlK) ■ IBLANK — - — -- 

00 **0 I - I .LNCAT 

RECORD 2 — NO. OF DATA PTS. (N CLUSTER!*! 

ENCODE (610.BC0RAY )NI I » 

CALL NTRAMKUNIT.I .3.BCDRaT,|STaT> -- • 

3b IF I ISTaT .£0. 1 » GO TO 3b 

RECORD 3 THRU 7 -- HEANS 

00 SO I I • 1 tNOFEAT 

SO CHNVEC (III »HE A NS ( I I • I I - - 

NGFEA 1 ■ NONFAT ♦ I 
00 «0 (2 • NOFEAI ,30 

60 CHNyECt 12) *0 
L • I 
LI • B 

BCROLN • 20 - 

00 70 13 • I.H 

ENCODE !S2C . BC OKAY ) I CHNVEC I I HI • |H»L.LI I 
CALL NTRAMKUNIT.I . BOROlN , 6C OR A Y » ! ST AT I 
6b IF ( I STAT *Ec. I) 60 TO 6b 
L » U ♦ I 

Li • L 1 ♦ fc 

If (13 .EC. 3) rORDLN • IS 

5-92 ... — - . 


r! 


00229 



70 

COUTINUC 

00229 

S3* 

C 



00229 

SM* 

( 


RECORD A TMPb II - - STO* DCv* 

OC2 2“ 

ss* 

c 



00226 

S6* 



00 80 Kl ■ 1*30 

00231 

S 7 • 


60 

®Cl*R A V C k 1 3 • jbc^Nlc 

0023 J 

S®* 



Ou * c T; ■ j** OFF AT 

00 2 3 A 

S9* 


90 

CHNvECj*?! • ST0rV|r2 t l| 

002-0 

60* 



NO ft 1 • NOfc** * * 

DO Too K 3 • N0FLA1 »3C 

002- 1 

6 l • 



002-9 

62* 


too 

ChIivLC 1*31 • 0 

002-6 

63* 



AOhDLN ■ 20 

OC 2m 7 

6 — • 



L • 1 

00250 

6S* 



LI • 8 

002S 1 

66* 



00 1 10 EH » 1 ,M 

002*9 

67* 



ENCODE IS7n, fc co R A* 1 1 C^MVEC • *S I • *S*l.Lll 

00262 

68* 



CALL NfRAM I KL'N I T ♦ 1 . fORDLN * BC OR A v • I ST A Y 1 

00263 

69* 


IIS 

IF 1 ISTAT .tO. II GO TO 1 IS 

0026S 

70* 



L • LI ♦ 1 

00266 

71* 



L| ■ LI ♦ 8 

0026/ 

72* 



I F ( K 9 *EQ« 3 3 ROROLM • IS 

00271 

73* 


110 

CONTINUE 

0027 1 

79* 

c 


• 

00271 

7S* 

c 


RECORO 13 TRO — COVARIANCE 

00271 

76* 

c 



00273 

77* 



DO |20 *11 * 1*30 

00276 

78* 


120 

BCDRAYIJII • IBLANK 

00300 

79* 



NONDLN • 20 

00301 

80* 



L ■ 1 

00302 

• 1 • 



M ■ 8 

00303 

82* 



I.OKCC * V AR S 1 2 / ® 

00 3o M 

83* 



IF |«00f VA4SI2.B) . NC • 01 NOREC • NOREC ♦ 1 

Ou 3 0 6 

89* 



DO 130 J 2 • 1. NOREC 

00 3 | 1 

as* 



EnC0DE(S29»bC0RAY) (COvaRI 1 , J3 1 , J3*L • L 1 1 

00317 

86* 



CALL NTRANUUNIT.I .RDRDLN.BCORAY. ISTAT 1 

00320 

87* 


126 

IF t ISTAT • £ Q * II GO TO I2S 

00322 

8 8* 



L • LI ♦ 1 

00323 

89* 



LI • LI ♦ a 

00329 

90* 



in J 2 . C 4 • <NOREC - •’ 1 ROROL'J • 1 MOO * V AR5 l 2 • 8 1 • 1 i 1 / 6 

00326 

91* 


1 30 

continue 

00330 

92* 


-0 

CONTINUE 

00332 

9 3* 



Call ntranuun!T,9> 

00333 

9 M • 



Rc turn 

00339 

9S • 


soo 

FORMATI 12*12*30111 

00 3 IS 

96* 


Sio 

format ( 161 

00336 

9 7* 


S20 

F0NMATI8CIS.7I 

00317 

98* 



E NO 


END or COMPILATION: no DIAGNOSTICS* 

trrite Symbolic 

TaR I TE CODE ^EtOC 4 T ahLE 


29 NOV 

73 

|3*9|j 18 

0 

01637216 

1 9 

98 

IDELETCOl 

29 NOV 

73 

i3:*»i : la 

1 

Q|«9|?»? 

29 

1 

• 0 E L E T e 0 1 




0 

0I6H2002 

1 9 

36 



5-93 



e eoR.« UNPACK , jNPaC« 

U N I VAC 1108 FORTRAN v t * E C f( LEVEL !S« -*CUC8 LEVEL FI20I00IO*) 
This COMPILATION AaS 3*>nE ON 03 DEC n AT 12*23: 19 


03 OCC 73 


12:23: 1 ♦ 


subroutine unpa*i 
UNPACK 


ENTRY point 300202 
EnTRV point 000207 


STORAGE JSEO: CODt(»i 000232; OATA(O) 0300361 BLANK C0MH0N|2| 000000 


EATENNAL REFERENCES (BLOCK, Na'«E| 

0003 N*DU* 

000 * N I 02 * 

000 s nerrj* 


STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NaHE I 


0001 0000*1 lot 

0000 I 000010 ( 
0000 1 000002 KNRO 


000 ! 33012* 2oL 

0000 00002m 1NJPS 

0000 I 000003 KWRD! 


0001 0001S2 30L 

COOO I 000000- JB1T 
0000 I 00000* L 


0001 OOOlSS *01. 
0000 1 00000s JMAA 
0000 I 00000* NAV 


r 







( 

00101 

1 • 


subroutine unpaki iioati 


UNPAOOOO 


00101 

2* 

C 



UNPA0010 


00101 

3* 

C 

This ROUTINE unpacks up TO 32-0jY IBM 360 «ORGS Into 

UNPA0020 

( 

00101 

9* 

c 

36-3 1 T WORD IMAGES «HICh CAN BE PCAD BY 

The univac nos. 

UNPA0030 


00101 

S* 

c 


. 

UNPA00*0- 

( 

00103 

6* 


DIMENSION 1 OP. T I 1 > 


UNPAOOSO 

00103 

7 • 

c 

. 


UNP A 00 60 


00103 

a* 

c 

initialize i oat array 


UNP A 00 7 0 

( 

00103 

9* 

c 



UNPAOOSO 

0010 * 

10* 


jbit • 0 


UNPA0090 


0010 s 

II*. 


K(,IT • -1 


UNPAOIOO 

( 

00106 

1 2* 


KnRD » 0 


UNPAOI 10 

00107 

1 3* 


krnoi • n 

.. - _ 

UNPAQ1 20 


001 to 

1 * • 


NAV - 36 


UNPAOI 30 


001 1 I 

IS* 


RETURN 

. . - 

UNPAOI 90 

[ 

001 1 1 

16* 

c 



UNP AO 1 SO 


001 12 

17* 


ENTRY UNPACK INTRE* KBITS) 


UNPAOI 60 


001 12 

18* 

c 



UNPaOI 70 

K 

00112 

19* 

c 

UNPACK NEAT KBITS FROM (NEC aRRaY INTO 

nTre 

UNPAOI 60 


001 12 

20* 

C 



UNPAOI 90 

( 

00 1 1 9 

21 • 


If (NBITS*GT*32| GO 10 00 


UNPA0200 

001 | 6 

22* 


IF (NBlTS*LF*0> *0 TO 30 


UNP A02 1 0 


001 16 

23* 

c 


. . . _ 

UNP A 0 220 


00 1 20 

2H* 


KBIT • KPIT ♦ NfllTS 


UNPA023G 

( 

00121 

2S • 


K*HD ■ KBIT / 36 


UNPA0290 


00122 

26* 


IF (NAV.LT.MtlTSl GO TO 10 


GNPA02S0 


00 1 29 

27* 


N THE - FLO(jGIT, KBITS. I0ATIKAR0«I1) 


UNP *0260 

1 

0012S 

29* 


JBIT • JO 1 T * NRITS 


UNPA0270 


00126 

29* 


NaV • NAV - MBITS 


UNP AO 2 6 0 

< 

00127 

30* 


KrHoI ■ KKRp 

5-94 

UNP A 02 *0 


0000 OOOOll SqF 
0000. 1 000001 KBIT 
0000 I 00000* NOV 


ORIGINAL PAGE 
OF POOR QUART 


00)30 

11* 



return 

UNP AG 300 

00130 

32* 

C 



UNP AO 3 1 0 

00131 

))• 


10 

JPAX ■ (KRRdI ♦ 1) • 34 • 1 

UNPA0320 

00132 

39* 



NOV • KBIT . jMaA 

UNP *03 30 

00133 

3S* 



L • 36 - NBMs 

ONP *0390 

001 39 

3*. 



I» , N A V L £ a 0 ! r »0 *0 20 

ONPA03SO 

00136 

37- 



I • 3fc • N»V 

UNP AO 3*0 

00137 

38- 



p t C * l • N A V ifiT^j 1 • KLC* 1 • IcATU^Rc’ 1 

UNP a0370 

oono 

00190 

3** 



L • t ♦ na v 

t NPA o36o 

90* 

C 



UNP AC 3 VO 

00191 

9 | • 


20 

riMl .NCV ,UT*E ’ * TLC(abS( 01 »NOV.IOAT(K«R C -n> 

UNPaONOO 

00192 

92* 



jfcir ■ r.cv 

UNP AC9 1 o 

00193 

93* 



k<*kci ■ rrRc 

UNP A C 9 2 0 

00199 

99. 



NAV • 36 - f.CV 

UNP A C 9 30 

00 199 ' 

9 S • 

c 



UNPA0990 

00I9S 

96* 


30 

RETURN 

UNP A09S0 

001 9S 

97* 

c 



UNP *0960 

00196 

98* 


90 

6N1TI 1 6 i SO 1 f BITS 

UNP *09 70 

OOlSl 

99* 


SO 

FORMAT C1H . ’ERROR. •• 19 # • B lts t*cECOS 32 - e lT *oRo LENGTH.*) 

UNP A 0980 

00IS2 

SO- 



GO TO 30 

UNP A 0990 

00 1 S3 

Sl* 



END 

UNPaOSOO 


end of compilation: 
unpack Symbolic 

UNPACK COOL RELOCATABLE 


01 AGf.oST ICS, 


29 nov 73 i 3 : m i : i 
29 nov 73 I 3; | 9 


01692772 


5l 

t DELETED) 

01699309 

29 

1 

lOELETEO) 

01699339 

19 

18 



l 


5-95 


( 


4* AJH,. UNHCK.OMPCK 03 OIC *3 I2123:2l. 

ASSEMBLED 6* UNI W * C 1 I 0 0 EXEC It A SsEMbLfR 2909 OPOB* 

this assembly p»s done on C 3 oec 73 at 12 : 23:21 


OOGOOI 








• 






UnPkOO 10 

0C0002 








• 

CALL UhPCK 

1 ISTaRT , S THING 1 ,L€ Ni,lH,5TR ING0 1 


UnPk0020 

000003 








• 

ISTarT -• 

LOCATION Of FIRST oaTa B Y U IN Thc A*** y STRING! 


UnPkO J3G 

00000m 








• 

STRImGI • 

INPUT ARRAY CONTAINING 8 8IT/BTTE DATA In PACKED 

FORMA? 

UNPK0090 

OOOOOS 








• 

LENGTH - NUHbEr OF 0YTES 

TO OC UNPACKED 


UNPKOOSO 

00000* 








• 

.STHInGO • 

OUTPUT aRH*Y CONTAINING TM£ UNPaL*FO OaT A 


UNPK0060 

000007 








• 






UNPK0070 

000OQ8 








4 

UNPACK!** 

perpormaEo IN t 

KURD (ffeTTE) GROUPINGS OR PaC*£TS 

UNPKOOSO 

000G09 








4 






UNPK0090 

000010 








• c 1 » 



• 

• •• - ... 

UnP X 0 1 9 0 

00001 1 










mbps 


4 


UnPxOISO 

000012 

.31 000000 

79 

06 

00 

00 

0 

000002 



nop 

0.NAHE 



UnPkO 1 60 

000013 

000001 

06 

01 

13 

00 

0 

000003 

UNPCK 

• S * 1 H2 

X 1 I . NAME* 1 

4 


UNPKOI 70 

000019 

000002 

71 

12 

09 

00 

0 

000010 



05 

A 9 , S A VE A 



UnPkOIBO 

OOOOIS 

000003 

01 

00 

06 

00 

0 

0000 1 2 



S 

A6.SAVEA.2 

4 


UnPkOIPO 

OOOol* 

OOOOOM 

0* 

00 

01 

00 

0 

000006 



1* 

X 1 .SAVE* 



UNPK0200 

000017 

000005 

06 

oc 

02 

00 

0 

000007 



SX 

X2 ( SAVEX. 1 

4 


UNPK02I0 

000018 

000006 

09 

00 

Cl 

00 

0 

000013 



s* 

Rl .SAVER 

4 


UNPK0220 

000019 

000007 

09 

00 

02 

or 

0 

000019 



SR 

R2.SAVER*! 

4 


UnPk 02 30 

000020 

000010 

10 

00 

09 

1 3 

1 

oooooo 



L 

A9..0.XI I 

4 


UnPk02 90 

000021 

00301 1 

05 

00 

00 

00 

0 

000017 



5 2 

A 3 

4 


UNPK02S0 

000027 

000012 

39 

16 

03 

00 

0 

00001 1 



01 .U 

*3.9 



UNPK026U 

000023 

000013 

79 

01 

09 

00 

0 

000016 



JHZ 

A«il*3 




000029 

000019 

25 

16 

17 

00 

0 

000001 



An.U 

A3* | 




00002S 

0000 i 5 

19 

1 6 

09 

00 

0 

00001 1 



A.U 

A 9 • 9 




000026 

0000 1 6 

29 

00 

17 

00 

0 

000017 



A 

A3.A3 

4 


UNPK0270 

000027 

000017 

29 

16 

t 7 

1 3 

1 

00000 1 



A.U 

A 3 , • 1 .X|| 

• A 3 CONTAINS ABS. LGC OF FIRST 

packet 

UNPK0280 

000028 

000020 

29 

00 

1 7 

00 

0 

000015 



A 

A 1 . 1 2 . 0 1 

• hOuifieo for inoe* incrementation 

UnPx0290 

000029 

00002 1 

27 

00 

01 

00 

0 

30301 7 



L* 

X 1 . A3 

• x i contains the aos* loc. input 

packet 

UnPk0300 

00003Q 

000022 

31 

16 

09 

00 

0 

003010 



HSl »U 

A 9 . 8 

• A 9 CONTAINS BIT s*l f T FOR BTtE 

in pac*e 

UNPKQ310 

000031 

000023 

7 1 

13 

on 

01 

2 

000003 



OL 

AO.O. • A 1 

• A0.A1 CONTAINS T m E 2 «QRO PACKET 

UnPx0320 

000032 

000029 

27 

00 

02 

on 

0 

000020 



LX 

X 2 , A 9 

• 


UnP a 33 3 0 

000033 • 

0H0025 

73 

1 1 

00 

02 

0 

OOOOOO 



losc 

A0.0.X2 

4 


UnPk0390 

000039 

000026 

23 

00 

02 

00 

0 

000009 



L* 

R2.HASK 

• 


UnPkOJSO 

00003S 

300027 

27 

00 

16 

1 3 

1 

000002 



L 

*2 * * 2 • X 1 1 

• 


UNPK0370 

000036 

000030 

25 

16 

1 6 

00 

0 

000001 

. 


an.u 

*2.1 

# 


UNPK03S0 

000037 

000031 

23 

00 

01 

00 

0 

000016 



L" 

Rl .*2 

• Rl CONTAINS LENGTH • 1 


UnPk 0 3 90 

000038 

000032 

27 

16 

02 

1 3 

1 

000003 



r 

X 

c 

X 2 . * 3 • X I 1 

• X 2 LOCATION OF OUTPUT «ORD HOOIFIEO FOR 

UnP* 0900 

000039 

030033 

29 

00 

02 

00 

0 

00301* 



A X 

*2.11.01 

• INDEX INCREMENTATION 


UnPr09I0 

000090 

000039 

93 

00 

01 

00 

0 

00001 7 

LOOP 

mLU 

*1 .<0! 

• A 2 CONTAINS aNS*e* 


UNPK0920 

00009 | 

030335 

06 

00 

1* 

02 

2 

000300 



s 

*2. 0,«x2 

• STuNE IN OUTPUT ARRAY 


UnPk 0960 

000092 

000036 

1 9 

16 

09 

Of) 

0 

300010 



A.U 

*9,0 

4 


UnPKOSOB 

000093 

00 0037 

53 

00 

09 

00 

0 

oonoo* 



THE 

A 9 , N * 

• IF a 9 less Than 80 CONTINUE 


UnPkOSIO 

00009* 

000090 

79 

09 

00 

00 

0 

033399 



J 

l°aop 

. 1 F a 9 EWUAL TO 80 L0a0 N£XT PaC*CT 

UnPk 0S20 

00009S 

00009 I 

73 

1 1 

00 

00 

0 

003010 

CONT 

L°SC 

*0,0 

• 


UNPK 0530 

000096 

00009 2 

73 

09 

01 

00 

0 

300039 



JGO 

Rl .LOUP 

4 


UnPk 05 90 

000097 

000093 

79 

09 

00 

00 

0 

300397 



J 

RClHN 

4 


UnPkOSSO 

000098 

000099 

71 

13 

00 

01 

2 

003030 

LJAOP 

OL 

*0.0. *A| 

. lOao NEXT roro Packet 

** -T, 

UnPk 05*0 

00 UO 9 ? 

000095 

10 

1 6 

09 

00 

0 

000010 



L.U 

A9 ,0 

4 

» ’ 7 

UnPk05 7 0 

OOOoSo 

000096 

7m 

09 

00 

00 

0 

30009 1 



J 

cOnt 

4 

— v /l, 
^ 

UnPk 0580 

000051 

000097 

23 

00 

03 

00 

0 

00005 l 

RETRn 

L« 

R 1 , *♦ 2 

4 

EL 

c 

UnPk 05 90 

0C00S2 

300050 

79 

09 

00 

00 

0 

300052 



J 

*♦2 

4 


UnPkO6C0 

000053 

00005 1 

00005G 

000312 




♦ 

S-UNPCK ,NAHE 


3 5 


0000S9 

000052 

27 

00 

1 3 

00 

0 

003303 



L« 

Xl|*NAN£»l 



UtlPK0*2Q 

ooooss 

000053 

7 1 

1 3 

09 

00 

0 

300010 



OL 

A9.SAVEA 

4 

C Cr 

> . ITT" 

UnPk 06 30 


35 
>4 5 ? 


5-96 


OQOOS6 


300959 

000057 


ooooss 

OOOoSa 


0000^6 

0000S9 


0330S7 

000060 


000063 

000061 


03036 l 

000062 


000062 

00006J u 
0000*9 


000063 

000Q65 

30 

030030 

OOOQ66 


030031 

000067 


030002 

0C0068 


030033 

000069 


003339 

000073 


300395 

000071 


0C003o 

000072 


000310 

000073 

000079 


000013 

00001b 
030016 
00001 7 


10 

00 

06 

03 

0 

30031 2 

27 

00 

01 

00 

0 

030006 

27 

00 

02 

00 

0 

0 3 330 7 

23 

30 

01 

00 

0 

003313 

23 

30 

02 

00 

0 

30331* 

50 

15 

00 

33 

1 

000033 

79 

09 

00 

00 

1 

000030 

79 

09 

00 

00 

0 

cooooo 


000013 00003S 

000000000303 

0332232HI021 

330000003003 

7 /7777777*»o3 

000000030123 


000002 000000 
000001 OOOoOO 
000000030003 


UNPC* STHbOUIC 

UnPCK COD t « fc L0CAT*3LE 



t 

A6 , SAVE A*2 

• 

U«P*069b 


L* 

*1 .bAVEA 

• 

VNPK06b0 


t* 

|2,SaV£A*I 

• 

UnPk0460 


L* 

*• ,S a v £ r 

• 

UnP«0670 


t* 

92 ,S A V L «* 1 

• 

U M P K O60O 


T2.SI 

• N ^. c -2 

• 

Vn^«0690 


J 


• 

ONPA0700 

rN 0 * 

J 

N£R«% 

• 

ONP907 1 0 

itor 



• 

K 0720 


♦ ' 

1 1 .5 

• 

U N P A 0730 


♦ 

3 

• 

UnPa0790 

name 

♦ 

•UnPCK* 




♦ 

*-i 

• 

UNPA0760 

*aSK 

♦ 

0777777777903 

• 

UNPK0770 

94 

♦ 

89 

• 

UnPkO 7 80 

S A vc< 

RES 

2 

• 

UnP A 079& 

SAVfcA 

RCS 

3 

• 

UNPAOttOO 

SAVER 

res 

2 

• 

UNPA0810 


END 


• 

UNPK0820 


NERR* 

29 NOV 73 l3M|:2l 0 014997)0 19 79 <C£LCTED> 

29 NOV 73 13S9W2I | 01*16799 12 1 (DLWCTfcOt 

0 01696760 1 9 7 
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5.6 Sample Output 


MANNED SPaCECnaF T CEnTEM 
HOUSTON, TCAAS 


0 ? NOV 71 



INPUT SUMMANr 



ftATjA 

PUnCh 

SfNNOw 

«*N 

- NM|N 
MA,C cS 
•LnO* 


I •'*» 7 »f 



rltLO f|NST 

N*Mt LINE 


MUOS TO Ok CkUSTtHkO 

LAST ^ LINE PlNff Last SAMPkC 

LINE INC. >ANpiL SAHP Ll |nC. 


*• I 3 N 0 *»00 

i* Flu 2 tii tti 


22 0 2 
220 2 



MANNED St'ACCC'A'I CtNTt* 
HOUSTON, T 1 1 A s 


0? MO* 7* 


-.-totfAftiAuct .nnu f oh auiu* » 


koi 





Mf 



l«li 

2.2* 

1.12 


Mk . 

l.lf 

0.75 

7.40 


CO^AA I A Nct HaUU fun CtJSTtA 2 


•O.N» 




2«|0 

!*•) 

.. 


•1.21 

I.H 

5.05 


».!• 

2.J* 

2.17 

• •22 


CJ<TAAI A MCC .UUll FOX CljSftN 1 


|1.l< 



k.2* 

*•*9 


• 22 

1 ./«• ‘ 

• •97 

••*1 

Mk 

2 . as 


COVaMIaHcl iUTmU fu* CLusre* * 


5-102 


• • 1 . U PAGE 13 
■’ • )R QUALJTlj 




1.U 


1 .IK 

J.K 


t.*b 

i./f 

♦.w 

» .10 

b.&l 

10. IJ 


C0VA«1aMi£ ><A I H t A run CkUWkM 


*•** 



1.17 

2.0* 


1.27 

l.fl 

1.17 

• 1.10 

1 .10 

2**2 

COVAftlftMCL N«V|1< 

FOR Clusilrt 



** 

10.7* 

22.1 1 


Ml 

11.12 

2*. 00 

♦ .*0 

20.** 

lb. SI 


CaVAMI A Nct II a f R I * FOR CLUSVLH 7 


*.12 ).th 

l.|i 2.02 1.12 


2 . 1 * 


1 . 1 * 


2 . 6 * 




2* .Si 


l*.2b 


Si. 27 


10.27 



CO# At 1 A N(t HaT| 1 1 fOK CLuifLA a 
1 1 -Si 

S.04 14, ?2 



7.«2 

20.il 

21,21 



MI 

20. *0 

41.12 

*0.21 



1 A f O h CIuWLm « 

- - - 




"V/ 

1 17*20 




o 

a 

• 

1 

1 

.01 



s*i.u 

ia.it 

17 , 7 a 


ia.au 

1)1.22 

5a.it 

ai.ta 


COVAtl A NcL IUTkII f On CtUSftR (0 
l<01 


1 • 1 1 

2.01 



».*i 

l.lt 

2.*l 


-1 .02 

1.72 

1.11 

a. &J 
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— - - — — - - 


manned spacecraft ccnun 

hOUsIom, tt«As 


luVAk n UhmEM uT kkUSTCNS • 10 
l«l?Ak ifUMUl K UF POINTS • *2/0 


CcUSU* 

stkkol 

FOInTS 

In C|OSTC« 

- — — - 1 

• - / 


H 7 i 

- 

2 

• 


1240 


i 

• 


490 


4 

t. 


J 42 


s 

A 


4 JO 


A 

0 


44 



— — — • • 


44 * 


• 

a 


144 


V 

* 


SO ^ 


10 

A 


1 22 J 



MLANS 

— * - • 


— 

kkUSH* 

(Ml It 

(Ml 4 ) 

CM| 71 

CHI •» 

1 

»•!•/* 

200 . *• 

1 * 7. |7 

200 * IS 

— • ■ - ~ A - 

1 * 7 . S 0 

1*1 • JS 

1 A 7 .«* 

1 * 4.74 

i 

i 7 S«S 4 

IV*. 12 

1 * 1*11 

1 * 2. *2 


i /•>. jo 

1 * 4. *0 

1 * 0.70 

1 * 0 .AS 

* 

| 7 ».vj 

1 * 4*11 

1 ** • 4 • 

172*02 

• 

MV. I« 

1 7 fc. 4 | 

174 . SO 

1 * 0.02 

/ 

|*J .»2 

1 *H. 1 J 

1 * 4.44 

177. *2 

A 

| / 1 • V 7 

l«J. 2 V 

1 70. 21 

I 4 S .21 

t 

120 . J* 

IS | .42 

146 . 0 * 

1 10.10 

10 

|A 2 « *0 

1 V /.04 

l*J.IJ 

17 V. 4 # 


— staNoamo deviations 


CkUStCtt 

cm n 

CM | 

CM | M 

CH| 4 1 

1 

2*21 

1 «s* 

2.1* 

2. *4 

2 

1*20 

l.S* 

7.1* 

2.00 

i 

4.4* 

1 

2 . * 1 

2«* 1 

!• 

2.0* 

1 *bO 

1.07 

S.IS 

* 

2*17 

1*1* 

2.20 

1*7* 

* 

9.94 

4.74 

S.IO 

7.17 

/ 

J.*S 

I./2 

1.77 

1*10 

/ Q 

J. J* 

4.1 1 

S.0S 

7.7* 


14.74 

d.Ln 

*.V! 

V. I* 


IU 


2 . 1 * 


I .2* 


1.S2 


2. a* 


OlSlANtLS Hi.Twt.LN CLU5TLRS 


. 

CLuSTL* 

1 

2 

3 

9 

s 

4 

7 

B 

9 

10 


1 

.00 

10.69 

9.99 

19.33 

10. S3 

l S • 9® 

13.92 

»*.07 

27. OS 

*.2S 


2 

10.*? 

• 00 

S.2H 

7.49 

4.32 

9.92 

3.40 

IJ.92 

21.37 

7.7a 


3 


S.2H 

.00 

10*33 

4.?l 

1 1*94 

B.4ft 

12.77 

22.72 

S.2S 

— 


H.3J 

/•*•» 

10.33 

.00 

s.sv 

7.S« 

4.24 

9 . 34 

17.01 

V.4* 


s 

10. S3 

*.32 

6.V| 

s.Sv 

• CO 

IU.7« 

7.30 

9.07 

21. S6 

3.89 

. 

* 

ts.v* 

V.?2 

li.n 

7. SB 

1C.7« 

• 00 

7.02 

9 • 7S 

*.2S 

t3.69 


7 

13.92 

J.*0 

H.t# 

4.26 

7.30 

7*02 

.00 

• »S2 

l 7 . l 9 

|0.29 

— 

a 

14.0/ 

10*92 

I2./7 

9.36 

9.07 

9.7s 

H.S2 

• *00 

10.33 

|2.7S 


9 

27. OS 

21*3/ 

22.72 

17.0| 

21. S4 

4.2S 

|9.|9 

|0. 33 

• 00 

2S. 7» 

— 

— |U 

— *».2S 

/./a 

S.2S 

V.6S 

3.49 

13.69 

10.29 

12*7S 

2S.70 

.00 
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NANNlD S^CKniM ItMlH 
hOOSTON, TixAS 


07 NOV 72 


fkO I 

I0TAI uf In IMIS F|tU> 3*110 

tlNL j9j iHNUUfart 903 CVfcNr 2 L|NL(SJ SAHHLt I T"rfOU*H Uq t Vt«T 2 SA^LtlSI 


UOOOCUOOOOOOOunOOJOOOOOOCOOOOOOcOOOOOUOOOOOOnoOOOOl 1 1 1 I I I I I 1 1 1 I I 1 1 I > 1 1 1 1 1 I I I | 1 1 I I II 1 1 1 1 I I 1 1 I I I I I I 1 1 12272222222 
J00J0 ‘ » I I I 222223 3 33 J**9 99.i*,SsSt,**A*A 7 7 7 7 7 *•«*« 9 9 9 990000C I | I | 1 22/22 3333 3*9«i'MiS«,SS*****ft 7 7 7 7 7**8 A# V» 999 oOOUQ I lilt 
|3S/VI JS7Vl3‘»7V| i *,7v liS 79| j‘»7V|.l!»7V l Ji;Vi3S7»i j 4 7Vj J S 7' liS7Vl3S^»l3V/V, j i7 »| i 47t|3 S 7V|iS7t| JS7VUS7VJ3S7V1 JS7» 


39* /•••• 

it* /•».. 
it>u /•••• 

3S2 / • • • • 

JS1 

33* .**vyv-. 


3*0 

3*2 

3o« 

3*2 

370 

372 


- 




— •••••••••••••••.////////• 

»•• ///////////////•• 
.*.////////////////////.• 
>••/////////////////////• 
..•••••••«•,////// ///////////// //• 



•././/////////////////.• 
»•••//./✓////////////////• 
•A*./////////////////////* 
••••/.//////////,////////. 
37** ----- 

3 7* •••••////////////////////•• 

3 7* 

.3*0 * 

3*2 •••••/////////////////////• 

3*9 

33* 

38b 

39U 

392 •••--•- *••#.///✓////////////////. 

399 *••— * it Hi m t 

39* -•••.////////////////////• 

39* ///////// ////////• 

900 ..... ///////////.. a •«.•••• 


./✓// 




•33 A.AAAAAAA 


•-*AAAAAmAAAA 


-AAA. A A A A AAA A 




. . £ A * A A A/ . . . . 


AAA A* 
A*A A • 


A A A A A 


AAA AA 
A * A A * 
A A A A A 


A A A A A 
A* A A * 
AAA. A 
* A A A * 


AAA* A 


A A A A A 


A A A A A 

A A A A A 

AA** A 


aa.aaaaaaaaaaaaaiaM.././ 


aaaaaaaaaaaaa.aaaaaa/./// 


aaaaaaa. a aaaaa aaaaaa///// 

AA.AAA AAA A A* • A A AAA A A///// 
AA* AAAAAA AAAAAa AAAAA///// 


m 


*AAa.« AAAAAaA. AAA AAA ///// 
AAAAA AA A AA././AAA/ AA///// 
aAaaaaaaa/a./. aaaaaa///// 
A AAAAA AAAAAA aaaaa a a*///// 
aaaaaaaaaaaaaaaaaaaa///// 




A/// 


AAAAAAAAAAAAAAAAAAA////// 


AAAAAAAAAAAAAAAAAAA////// 

************** a* ///////// 

AAAAAA// •••/••/////////// 
/...//.////.../////////// 
/////...////////// /////// 


*•0 » 14 1 ^ HL* 

C i> U 3 1 L N |h 

III IV Mill 

CLU^tCm 

*TNoOt 

HO 1 NTS 

1 

/ 

AS J 

• 2 

• 

AVI 

— 3 


-»P* 

9 

♦ 

N 

% 

A 

23* 

* 

• 

IV 

7 


23 / 


c > 
1 1 
«< « 


OF ?0° R 



MAMHO SPAlUftAM ilNUN 
HOUSTON, f C A AS 


07 NOV U 


TUIaL N^NhC* UF POINTS »M IMb r|tLU 2*»0 

klNL 4*<«l TiiRUyUn *91 Cvtm 2 tlNl(S> SAHPCl I ThNOUCH Z2Q IVlNY i »AhP t i, Sf 


OOOl'OGOOOOOOOObOOfcCPbl'rOOCOOOOOCUlOOOoOOCCOOOOCObO III 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I I 1 1 1 1 I 1 1 1 1 1 1 I 1 1 I I I 1 1 1 1 1 1 I I I I 1 1 2222222?}? 
OGOtOI 1 1 I l22222iJJ2rf*“.«*H9SSSSsAA**A7?/?7A8 8bAW9»FT0000CI I I 1 1 222?222?i3«i«i*<9< l SbSSS*»4»»777 7 7«»SA<tf T«9«OUOUOl 1 1 1 1 

| JS7»1?S7»| JS, 7*1 JS7VJ jS7«|3S7«US/9|3^7V|2S79 ) 3s 79|2S79|2S7V| j S 7f |jH»| jS7*l?S7t| JS 7 t | 3*7 t | 3& 7* , JS7* 


b ♦ • b ♦ ♦ h « ti ♦ * * b • A 


♦*****»// 


• «u»**u(jei> ♦♦•♦•til. v 


••£«**»// 


♦ ♦ ♦♦ 

• *b- 



• ♦»H*bbtb#» 

• •H.****feb* 


///////// 


/✓///////. 


hbolUll t>bS 


/llltlAl// 




|A**AA •/ 

Itlttl// 


UOb|>M,« t>* •« 


pu» ctusUN in This mho 

Lh SYH0UL PC INIS 
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Appendix A is an alphabetical list of the diagnostic 
messages printed out by the program. 


1. A LINE NO. IS LESS THAN OR EQUAL ZERO. 

This message is printed by subroutine TAPERD. Each data 
record on the input data tape contains the scan line number. 
After unpacking these bits a test is made to see if the num- 
ber is greater than zero, if not the above message is printed 
and execution terminates. 


User should check to see if correct data tape has been 
assigned to FORTRAN unit 3 (Logical unit C) , and that the 
input card for FORMAT corresponds to the format of the data 
tape. 

2. AT LEAST ONE FEATURE MUST BE INPUT. 

This message is printed by subroutine SETUP. The user has 
failed to input the channels he wishes to use in the analysis. 
See FEATURES input card in section 3.1.1. 

; 

3. AT LEAST ONE FIELD MUST BE INPUT 

This message is printed by subroutine SETUP. The $END* card 
was encountered before any fields were defined. The user 
must define at least one field by lines and columns. See 
section 3.1.1. 
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4. ERROR READING FIRST DATA RECORD-- I STAT= . 

Printed by subroutine TAPERD. See Explanation of 6. 

5. END-OF-TAPE ON UNIT LAST LINE WRITTEN. 

Printed by DASTAP. 

6. ERROR WHILE READING DATA RECORD. 

LAST SCAN LINE READ ISTAT= . 

Printed by subroutine TAPERD. Either a parity error (ISTAT= 
—3) has been encountered on the data tape or a device error 
(ISTAT= —4) has occurred. Resubmit the run with a back-up 
tape if available. Before resubmitting make sure you have 
checked the list of possible errors printed with this 
diagnostic. 

7. FIELD BOUNDARY FOR FIELD DEFINED BEYOND SCOPE OF 

DATA. THIS FLIGHT LINE CONTAINS SCAN LINES. 

Printed by subroutine TAPERD. The last scan line on the 
data tape is less than the last line of one of the fields 
defined by user. The last line on the tape becomes the 
last line in the field and the program continues. 

8. FILE ASSIGNMENT NOT MADE FOR UNIT (4 or 7) NSTAT= . 

Printed by subroutine SETUP. An attempt was made to assign 
a word length to drum unit 4 or 7 which was more than the 
number of words available. 

9. IN FIELD INITIAL (SAMPLE OR LINE) IS GREATER THAN 

LAST (SAMPLE OR LINE) . 
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Printed by subroutine SETUP. An error was made in the 
definition of one of the fields, check input card. 

10. INITIAL (SAMPLE OR LINE) IN FIELD DEFINED LESS THAN 

1 . 

Printed by subroutine SETUP. Check input card for indicated 
field. 

11. INTERNAL DIMENSIONS TOO SMALL FOR DATA. 

NO. OF CHANNELS ON DATA TAPE = NO. OF POINTS/ 

CHANNEL = . 

Printed by subroutine TAPERD. The most data the array I DAT , 
which is dimensioned by the parameter variable MAXDIM, must 
contain at one time is (1) the packed scan line as read from 
tape (2) the unpacked scan line and (3) at least one data 
point to be clustered. The storage needed for the above 
data is calculated and if it is greater than MAXDIM the 
diagnostic is written and execution terminates. The number 
of channels and points per channel as unpacked from the 
header record of the tape are written out with the diagnostic. 
If these numbers are in error then the header record of 
the tape is bad and must be corrected. 

12. INVALID INPUT CARD — IGNORED 

Printed by subroutine SETUP. Check section 3.1.1 for correct 
spelling of key-words for card input and make sure the key 
word is left- justified in the field. 

/ LINE \ 

13.1 or (INCREMENT IN FIELD IS LESS THAN 1. 

\ SAMPLE/ 

Printed by subroutine SETUP. Check input card for indicated 
field. 
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14. SCAN LINES ARE NOT SEQUENCED CORRECTLY AROUND LINE . 

Printed by subroutine TAPERD. Scan lines on data tape are 
not sequenced by 1. An attempt is made to continue reading 
next field. 

15. TOO MANY FIELDS ARE BEING INPUT. 

Printed by subroutine SETUP. The number of fields is limited 
to the parameter variable MAXFLD , which is set to 10 Q. 

16. UNRECOVERABLE ERROR READING HEADER RECORD. 

Printed by subroutine TAPERD. A parity error or a device 
error was encountered in attempting to read the header 
record from the data tape. This usually indicates the tape 
is bad. See explanation of diagnostic 6. 

17. USER HAS REQUESTED TOO MANY DATA POINTS STORAGE 

NOT AVAILABLE. AVAILABLE STORAGE ON FH432 DRUMS 

IS WORDS. AVAILABLE STORAGE ON FH1782 DRUMS 

IS WORDS. 

Printed by subroutine SETUP. The number of data points 
times the number of channels requested by user exceeds the 
storage available on FH432 drum, or the number of data 
points exceeds the storage available on FH1782 drum. User 
must reduce the amount of data to be clustered. 

18. WRITE ON UNIT TERMINATED ABNORMALLY. DAS TAPE 

NOT CREATED. ISTAT= . 

Printed by subroutine DASTAP. User should resubmit the job 
with a different output tape. This diagnostic indicates that 
either a bad type was being used or a tape drive error 
occurred. 
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APPENDIX B 

Aircraft Data Storage Tape Format 
LARSYS Version 2 


There are four types of (physical) records on the Aircraft 
Data Storage Tapes. They are: 

1. ID record - 200 full words fixed length 

2. Data record - variable length 

3. End-of-Tape records - 200 full words fixed length 

4. End-of-File records - IBM Standard 


An aircraft Data Storage Tape contains one or more data runs 
consisting of an ID record, several data records and an End- 
of-File record. After the last data run on the tape, an 
End-of-Tape record and two End-of-File records are written 
on the tape . 


For the purposes of this presentation a word is defined to 
be 32 bits and a byte to be 8 bits. Further details 
regarding the physical records follows: 


1. ID 

record (200 full 

words fixed length) 


Format 

Description 

ID (1 ) 

Integer 

LARS Tape Number (e.g., 1, 17, 
102, etc.) 

ID (2 ) 

Integer 

File number on this tape 

ID ( 3) 

Integer 

Run number (8 digits aabbbbcc) 


aa - last 2 digits of the Year 
data was taken 
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Format 


Description 


ID (4 ) 


bbbb - running serial number for 
the year data was taken 

cc - uniqueness digits for runs 
which would otherwise have 
the same run number 

Integer Continuation Code 

ID (4) = 0 means the first line of 
data follows this ID 
record 

ID (4) = X means that the data 

following this ID record 
is a continuation of a 
flight line started on 
tape X 


ID ( 5) 

Integer 

Number of Data Channels (Spectral 
bands) on tape (30 maximum) 

ID (6 ) 

Integer 

) 

Number of Data Samples per channel 
per line 

ID (7-10) 

Alpha- 

numeric 

(4A4) 

Flightline Identifications (16 
characters) 

ID (11) 

Integer 

Month data was taken 

ID (12 ) 

Integer 

Day data was taken 

ID (13) 

Integer 

Year data was taken 

ID (14 ) 

Alpha- 

numeric 

(1A4) 

Time data was taken 


mu 






